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ABSTRACT 

THIS MAINDEC CONSISTS OF TWO PROGRAMS TO CHECK OUT 
THE DFC1IA. FIRST.A DPLIA/DEC11 EXERCISER 

WHICH IS RUN WITH A DF11 TEST CONNECTOR IN PL 

THE MODEM. THE FUNCTION OF THIS TEST IS TO CHECK OUT 
THE DFCIIA AND CABLE. 

SECOND, THERE IS A DULI/DFC11 EXERCISER WHICH IS 

RUN WITH AN HG1S TEST CONNECTOR IN PLACE OF THE MODEM. 
THE FUNCTION OF THIS TEST IS TO CHECK OUT THE DFC1IA 
AND CABLE. 

THESE TWO PROGRAMS ARE TOTALLY INDEPENDENT OF EACH 

OTHER AND ONLY ONE PROGRAM NEED BE RUN. THE INTENT 
IS TO HAVE ONLY ONE LISTING AND DOCUMENTATION 

THE TwO TE (MONITOR-WISE? LIKE 

THEIR OP11 OR DULL BTAGNOSTIC COUNTE 

THE “MONITOR” OF EACH WILL FUNCTION 

SWITCH-WISE OR CONVERSATION-WISE IDENTICALLY. 
REQUIREMENTS 


ANY POP Bey CPU WITH 4K By ta 
WITH OR WITHOUT A HARDWARE SWITCH REGITER (LOC. 177570) 


é TY of EQUIVALENT 
. EITHER A DPLIA OR Dull 
EITHER & DP11 CABLE TERMINATOR OR H31S5 CONNECTOR RESPECTIVELY 


“4 


STORAGE 
MINIMUM OF 4K 


LOADING PROCEDURE 


THE Snes toeen BE LOADED LIKE ANY OTHER PROGRAM 

PEPERTAPE _DECTABE MAGTAPE, CASSETTE, DISC 
pyc BE PAPER TAPE LOADING THROUGH THE 
ooE OF MeBSOC TE 


DFC1IA TESTING 

THIS PROGRAM(S) WILL EXERCISE 118 

METHOD: INSERT OU11 OR OP1] AS REQUIRED 
INSERT DFC11 AND REQUI CABLE. 





A ee ee 


— 
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4.0 


36 


INSERT PROPER TEST CONNECTOR ON END 
OF DOFC11 CABLE PER SECTION 1.0. 


STARTING PROCEDURE 

#ee2IF THE SOFTWARE SWITCH g 2G Is 
WILL BE TYPED AFTER THE PROGRAM IDENTIF 
SWR=XXXXXX NEW= (REFER TO SECTION 4.1 


CONTROL SWITCH SETTINGS 
IF THE DIAGNOSTIC IS RUN 


Tee USER THe Swe SuITC 


THE 

F THE HARDWARE SWITCH 
AND IT CONTAINS ALL ONE 
REGISTER (LOC. 176) IS USED. 


ED THEN THE FOLLOWING 
OR OPERATOR'S OPTION) #### 


CONTROL : 
THIS PROGRAM ALSO SUPPORT ; THe DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGIS oe ire) — HE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE 
1) Ys bh Bn WI OW THE TTY TO ENTER DATA INTO 
ERTS WITHIN THE PRCGRAR 


“4 area AT set? ED POINTS 
Fe CRKKKX IS THE OCTAL CONTENTS 


2) PRLS. ‘iste 


3) AFTER THE ° * HAS Gwe THEN THE OPERATOR CAN DO ONE 
OF THE SLL Ou NG AT THE 


A) ia A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
Y NUMBERS BETWEEN O-7 WILL BE ACCEPTED AND ONLY & NUMBERS 


wie "Be ALLOWED ) 
IF A <CR> IS FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IFAC U <tu> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 


TO ST 
2) THE MACHINE WILL SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 


THEN TYPE: 
OF THE SOFTWARE SWITCH REGISTER. ) 


3) @ETER THE **NEW='" HAS 33 TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE : 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED AND ONLY & NUMBERS 


) 
IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP e. 


& 
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FOR THE DPi1A/DFCLIA 


SWITCH O7 = 1 ere SINGLE DP11 MODE WHEN ST 
(PLACE RESPECTIVE LINE 
IN SWR WHEN PROGRAM HALTS) 
= 0 INDICATES CYCLE MODE ( THAN ONE) 
LOC “BASCSR™ “BASVEC” ARE USED 
FIRST DP11 CSR + VECTOR. THIS MODE 
WHEN UNDER ACT-11. NOTE: AL 
MUST BE CONFIGURED THE SAME 


| FOR THE DULL/DFC1IA 


a 


& 


SWITCH OD = 1 INDICATES RE-SELECT ADDRESSES AND VECTORS. 
(THIS IS A FLOAT ADDRE - MORE 
LIKELY yOu SHOULD ALWAYS 
= 0 NORMAL DEFAULT STAR 
4.2 STARTING ADDRESSES 


200 = START ADORESS FOR DUL1/DFC11 TEST - CABLE & RESPECTIVE 
| TERMINATOR MUST BE ON. 


210 = START ADDRESS FOR DP11/DFC11 TEST - CABLE & RESPECTIVE 















| TERMINATOR MUST BE ON. 
| 1000 = RESTART FOR PRODUCTION RUNNING DU/DFC 
| 


SEE DFC11-A DOCUMENTATION FOR CORRECT JUMPERS 8 SWITCH 
SETTINGS FOR DU11 OR DPi1. THIS IS IMPORTANT!!!° 


4.3 OPERATOR ACTION 
4.3.1 DPLIA/DFC1IA 


i 

IF SWITCH 07 WAS LEFT UP THE PROGRAM WILL HALT WITH 
THE SWITCH REG. IN THE DATA LIGHTS. (EXCLUDING 1105 & 
| 11710 CPU) AND REQUIRE THE FOLLOWING OPERATOR ACTION: 
/ 
} 


A. SWOO-SWO8 mer BE SET TO THE VECTOR ADDRESS OF THE 
FIRST DOP11. NOTE FIRST DP11 VECTOR, NOT 
THE LINE SELECTED UNLESS IT IS LINE'O. 


B. SWOS-SWIS MUST BE SET TO THE OCTAL_LINE NUMBER OF 
ae ree ee TESTED. €£.G. THE FIRST 


PRESS CONTINUE, RESET SUR AS PER 5.1.1. SWITCH SETTINGS. 
PRESS CONTINUE. THIS STARTS PROGRAM. ALL OP11 ADDRESSES 
SHALL BE Agel OT ENED ROR ROM 774400 TO 774770 (CONTIGUIOUSLY? 

E 


TION 4.3.2 PARAGRAPHS D,E,AND F FOR BAUD RATE AND 
LOOP EXPLANATIONS. 


FOL 
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4.3.2 


5.0 
§.1.1 


© 
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D. SEE SECTION 8.3 
DU1L1/DFC11-A 


IF SWITCH 00 WAS ASSERTED AFTER LOADING ADDRESS 200; THE PROGRAM 
WILL ASK THE FOLLOWING QUESTIONS: 


e- ah) CENT a CSR ADDRESS: 0 164000) 


e 

as 

F 

m 

3 
aa 


1 
T EST : 
IF YES, THEN WILL RSK IF AC LINE ais cy OR NE ANSWER Y 
A YEFe PoENT tobee WILL BE AS obBone LAY BEFORE THE yf 
, ERROR ghessace 1 . NOTE: THE BAUD RATE CHECK 
shy tones WITH THE EXCEPTION. OF ERROR SWITCHES. 
OCK RECOVERY. oF BRuo po 


L ABO 
TO ELEIMINATE ERRONEOUS INTERNITTANT ERRORS. 


oh 
; 


SWITCH SETTINGS (APPLICABLE TO BOTH TESTS) 


SWwIS = 1 HALT ON ERROR 
Swl4 = 1 SCOPE LOOP FOR WHOLE CURRENT TEST 
Sul3 = 1 INHIBIT ERROR PRINTOUT 
Sule = 1 INHIBIT ALL PRINTOUT, BELL ON ERROR 
Sill = 1 INHIBIT ITERATIONS 
Swl0 = 1 ESCAPE TO NEXT TEST ON ERROR (DP11 ONLY) 
Su0? = 1 SINGLE DP11 MODE (DP11 ONLY ON START UP) 
ALSO ASKS IF BAUD RATE CHECK IS WANTED 
SWO3 = 1 PREVENT ERRONEOUS ERRORS WHEN RUNNING DU/DFC 
IN CLOCK RECOVERY ABOVE 9600 BAUD. 3 
SWO1 = 1 RETURN TO BAUD RATE TEST AFTER EOP. (SW11 MUST ALSO BE UP) 
5u00 = 1 RESELECT ADDRESS & VECTORS AND ASKS IF BAUD RATE TEST 
IS WANTED (DU11 ONLY ON START UP). ANY 
RESTARTS NEED NOT START WITH SWOl =1 SINCE THE PROGRAM 
WILL REMEMBER ANSWERS. 
ERRORS 
ERROR PRINTOUT 


PRINTS ALL ERRORS UNLESS INHIBITED BY swi3 OR SW12 
HALT PC: XXXXX THIS IS MEMORY ADDRESS +2 LOCATION. BACK UP e TO FIND ERROR IN LISTING 
DEPENDING ON THE ERROR AN ADDITIONAL MESSAGE MAY BE TYPED OUT 





GO1 
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~~ 
© 


~“ 
b 


8.2 


8.3 


ERROR RECOVERY 


B. TO RECOVER FROM HALT BN FRROR DEPRESS CONTINUE 
C: IT MAY BE DESIRABLE TO SET SW13 OR SWl2 IN AN ERROR 
CONDITION SO THAT AN OSCILLOSCOPE CAN BE PLACE ON LOGIC. 


RESTRICTIONS 

STARTING RESTRICTIONS 

MOST LIKELY START: 

START@ LOC 200 WITH SWOO=1 FOR STARTING OF DULI/DFC11A 
FOR RESTART 


STARTS LOC 210 WITH SWO7=1 FOR SINGLE DP1IA/DFC1IA 
SwO7=0 FOR ACT-11 & CYCLE MODE 


SEE SECTIONS 4.1, 4.3.1, AND 4.3.2 


MISCELLANEOUS 

THE MONITORS ARE “CARBON COPIES” 
DIAGNOSTICS. THIS WAS TO KEEP UN T 
PROCEDURES, SINCE THE CHECK OUT OF THE DFC 
DEPENDENT THE DEVICE DRIVI 

THIS PROGRAM IS JUST AN EXERCI 
TROUBLE-SHOOTING EXTENSIVE SCOPING WI 
MULTIPLE DPLLA/DFC1IA 

REFER TO DP11A DIAGNOSTICS 

MULTIPLE DUL1/DFC11A 

REFER TO DU11 DIAGNOSTIC 


SWITCH SETTINGS FOR THE DFC11A 


- 
% 
Lom 


THE FOLLOWING APPLIES: 


AR. MAKE SURE THAT THE PROPER MODEM JUMPERS ARE IN 


FOR 
THE RESPECTIVE DEVICE THAT IS DRIVING IT. IE DP11 OR OU11. 


B. SELECT APPROPRIATE (S2)._ THE BAUD RATE 
CAN BE SOFT CHE fr KW11l IS egg IN THE 
Pee: cotta eA Rate on ad " MAGE, A IS A —— ABLE. 


A DELA 
ive SEcohos “ HILL OccuR AND THEN THE’ APPROPRIATE 


C. SELECT APPROPRIATE OPTION MODES (S1). BY CAREFUL 
ANALYSIS OF THE RESPECTIVE PROGRAM, WRONG (S1) SUITCH 


SES 0007 





ee ee ee i ne a ee ee 
a 


i 
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SES 0008 


SETTINGS WILL CAUSE A PREDETERMINED ERROR. IE 
Si-2 8 Si-8 =0 WILL FAIL TO CLOCK DATA IN OR OUT. 


D. MAKE SURE THE DFCII/CABLE IS CORRECTLY TERMINATED. 
TYPICAL SWITCH & OPTION MODE SELECTIONS OF THE 
DFC11A ARE INCLUDED IN THE LISTING FOR QUICK REFERENCE. 
§.0 PROGRAM DESCRIPTION 
SEE LISTING FOR THE DETAILS, HOWEVER THE DP11 & DU11 PROGRAMS 


BASICALLY CHECK fi LINES AND INSURE THAT DATA IS TRANSMITTED & 
RECEIVED CORRECT 





— TT 
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:DUL1 AND DP1IA ----DFCLIA INTERFACE EXERCISER 
:COPYRIGHT, DIGITAL EQUIPMENT CORPORATION###*%+ 
:MAYNARD, MASSACHUSETTS 01754 
:PROGRAMMER: R. OCHESTER J.EGOLF 


SEG 0009 
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eeerrrerccrcccesccccestcseccecstcasssesascassaeaaeaneheeas 
THE FOLLOWING DESCRIBES THE SWITCH SETTINGS FOR THE DFC11-A 
eee HOWEVER READ ENGINEERING’S BLURBS FOR THE STRAIGHT SKINNY 
FFFFFttttFEtEtttttttttt tt ttt tt tt tt tests tttttttttttttetsosess 


BAUD RATE SELECTION NOTE 1:_ A SCOPE LOOP IS AVAILABLE 
TQ VERIFY BAUD RATE IF NO KW11 
IS AVAILABLE. 

Se-4=1 150 BAUD 

Se-3=1 300 BAUD 

Se-6=1 600 BAUD 

Se-S=1 

Se-8=1 2400 BAUD 

Se-10=1 4800 BAUD NOTE 2: ALL OTHERS MUST BE ZERO 

Se-7=1 9600 BAUD FOR THE BAUD RATE SELECTION 

Se-9=1 19200 BAUD 

TR AAAARSASEAASRRSRRSRDRARRARARARARAARARRARRARaa aaa aaaaaaannnnn 

OTHER SWITCH SE 


CTIONS 
$l-1=1 C CLK R TURNED ON BY OFF TO_ON CARIER TRANSITION 
Si-1=0 NO EFFECT BY CARRIER TRANSITION 


Si-2=1 ENABLE DFC-11A 
Si-2=0 DISABLE DFC-11A 


S1-3=1 REC CLK TURNED ON BY 1ST MARK TO SPACE TRANSITION 
$1-3=0 NO CLK DATA HAS NO EFFECT 


Si-4=1 REC CLK RESYNCED BY ANY MARK TO SPACE TRANSITION 
Si-4=0 NOT SYNCRONIZED 


Si-S=1 REC CLK_TURNED OFF BY ON TO OFF CARRIER TRANSITION 
$1-5=0 TIME OUT AFTER NO DATA FOR .S SEC 


S1-8=1 EXTERNAL CLK 
NOTHING 


$1-8=0 

$1-9=1 CTS NO DELAY 

$1-9=0 CTS WITH DELAY BASED UPON THE SWITCH SETTINGS OF S1-6 8S1-7 
S1-6 $1-7 

0 8) CTS peLay =0 NOT APPLICABLE 

0 1 CTS DELAY= .2 SEC 

1 0 CTS DELAY= .1 SEC 

l 1 CTS DELAY= .3 SEC 


evoweveverrrctrercttttctrcrerssrsr iti tl iirc lolol foe lp 
TYPICAL DFC11 SWITCH SETTINGS FOR THE DU11 AND DPil ARE AS FOLLOWS::: 


DUL DP1 
S1-1,2,3,4,5,6,7,8,9,10 51-1,2,3,4,5,6,7,9,9, 10 
oi,4,l, ,0,0,0,1,1 »1,1,1,1,0,0,0,1,1 
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* eas % #2 
#= CUSTOMER OPTION 
SET S2-1 THRU S2-10 FOR DESIRED BAUD RATE 


FFFFFHFFFFFFFtFFF4F Ft +EFs FFF FF tstttFH FF tHttFFFFF++ttF++HE+etttt+ssssss sess ssossosooesos 
Ti DFC11 MODEM ys fa) ate Be CONFIGURED AS FOLLOWS: 
NOTE: = JUMPER REMOVED 


l= JUMPER i 

JUMPER 
NO. NAME FOR DULI/DFC11 FOR DP11/DFC11 
Wi EIA 0 0 
We 202 1 
W3 EIA 0 0 
WH 202 1 1 
WS 811 0 0 
WE BSY 1 1 
Ww? 301 1 1 
WE 301 1 1 
FEEFEEFFEFE FEES FES FFF FF FFF Ft 4st tts tts ss esse eset esses set 
TERMINATOR: :::s::t:::::: THESE MUST BE ON THE DFC11] feterte! 


DU1i:: THE DFC11 SHALL BE TERMINATED WITH H315 CONNECTOR 

DP1i:: THE DFC11 SHALL BE TERMINATED WITH DP11 TERMINATOR 
vicmenit ‘capt ataadhls ace Sneath 
;DP11/DUL1-DFCIIA 


“COPYRIGHT APRIL 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
“REVISED 21-JUNE-76 BY 0.CHOATE 


; A)SUPPORTS SOFTWARE SWITCH REGISTER 
; sad «a od THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER 
pBTeRT ES PROCEDURE 
;LOAD PROGRAM 


;LOAD ADDRESS 000200 
; PRESS START R ne Sei eRr WITH SWOO=1 TO RESELECT 
;THIS IS’FOR THE Bul 1 /OFEL I TEST 
one Oe 000210 
; TH /DFC11 
ats 12'Fo FOR THE DP11/DFC11 TEST 


;FOR MORE INFORMATION SEE THE 
;DOCUMENTATION IN FRONT OF THE LISTING 


;SWITCH REGISTER OPTIONS 
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LO 


INTRODUCTION TO D@11 DIAGNOSCTIC SEG Ole 
SW1S5=100000 ;=1,HALT ON ERROR 

SW14=40000 ;=1,L00P ON CURRENT TEST 

SW12= :=1, INHIBIT ERROR TYPEOUT 

SWl2=1 ;=1,DELETE TYPEOUT/BELL ON ErXOR. 

SW11=4000 321, INHIBIT_ITERAT 

SWi0=2000 :=1,ESCAPE TO NEXT TEST ON ERROR 

Siose40R. 1,LOOF ON ERROR 

Steers Str SPNGLe SEreS TED OP11. =0 CYCLE ALL OP1iS 
SWO6=100 

SWOS=40 

SwOo4=20 

SWO1= ;=1,BAUD RATE TEST RESELECT - SW11 MUST ALSO BE UP. 
SWOO=i ;=1,RESELECT ADDRESSES & VECTORS 
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inTROBLCTION TO DOLL DIAGNOSCTIC om $€9;0012 
~ wey 
| eh ere WEEE 
sREGISTER DEFINITIONS : xe ee 
i Pk . gu x Se 

RO=”0 ;GENERAL REGISTER ay. } 
Ri=%] ey ek 
Ro=%2 GE NEREL REGISTER “ay 

R3=%3 :GENERAL REGISTER 

R4=%4 GENERAL REGISTER 

RS=%S RAL REGISTER 

245 PROCESSOR STACK POINTER 

PC="7 PROGRAM COUNTER Shee 

* TSS 

;LOCATION EQUIVALENCIES 

DSWR=177570 sCONSOLE SWITCH REGISTER ; ae 
DLIGHTS=177570 ;POP=11745 DISPLAY REGISTER | =. 
PS=177776 —« ; PROCESSOR STATUS WORD 3 ee 

: STACK! 1080 START OF OF PROCESSOR STACK Bi 
CRLF=200 ile 
ots reel 

; INSTRUCTION DEFINITIONS ry oA . 
PUSHISP=S746 = ;DECREMENT PROCESSOR STACK 1 WORD eo, = 
POP1SP=5726 INCREMENT PROCESSOR STACK 1 WORD ee ie 

PUSHRO= 10046 SAVE RO ON STACK * i. 

RESTORE RO FROM ST ACK . an 
PUSH ees ;DECREMENT STACK TWICE 
=206 “y INCREMENT STACK THICe 

PeouiV EMT, ERROR :BASIC DEFINITION OF ERROR CALL 

BITIS= 

B1T14=40000 

B1T13=20000 

BIT12=100 

BIT11=4000 

BIT10=2000 

81T9=1000 

BIT8=400 

BIT7=200 

BIT6=100 

BITS=40 

BIT4=20 
BIT3=10 
BIT2e=4 

BIT1= 

BITO=1 


NO1 
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DzOFPS.P11 20-SEP-76 14:36 TRAPCATCHER FOR UNEXPECTED INTERUPTS "seq 0014 
535 STRAPCATCAER FOR ILLEGAL INTERRUPTS ie 
23 ‘THE STANDARD “PC#2....-HALT” WILL BE PLACED 
E39 SBETWEEN ADDRESS 0 AND 776. THIS WILL CATCH ANY 
e536 SSTRAY INTERUPTS. 
246 poooce 20 
Eu1 :VECTOR INITIALIZATION 
E45 noooe4 34 
43 00024 36436 PFAIL -POWER FAIL VECTOR 
uy 900026 dons40 340 ‘PRIORITY 7 
Eus 900030 010250 ERROR 
Bus o00032 O00340 5 
24? 900034 011860 “TRPSRV 
48 000036 00340 340 
550 000174 .=174 
22] 900174 OISPREG: 0 | 
225 popee Op 901100 wert a SCLEAR # OF PASS 
554 000137 O01652 IMP CULT eee eter OF TEST 
eee 000210 2210 
BS? 000210 012737 O02404 001236 HOV #DP11.A,DD.A ;SETUP FOR RETURN AT START OF TEST 
Eee O00216 O0S037 O01162 CLR XLINEX PerEAR LI 
2g 00222 008037 O01i00 CLR ss PASCNT SErEAR # OF PASSES 
Q00226 008037 O01240 CLR oT S<ETUP FOR BALD RATE TEST 
2e1 o00s32 000137 001400 IMP «PL ‘80 TO START OF TEST 
2e5 o01000 _=1000 
Se4 001000 000137 003126 INP DULL. SPRODUCTION RESTART AT REGULAR DU TESTS 
PEE o01050 =1050 
| 
569 SINDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 
271 001050 177570 SUR: 177570 ;SWITCH REGISTER POINTER 
275 Qoloe2 177270 CIGHTS: 177870 SBISPLAY REGISTER POINTER 
275 01084 177660 TKCSR: 177860 TELETYPE KEYBOARD CONTROL REGISTER 
274 OO10ee 17762 TKDBR: 177562 TELETYPE KEYBOARD DATA BUFFER 
E75 001080 177564 TPCSR: 177564 {TELEBRINTER CONTROL REGISTER 
S72 O0l0be 177566 TPOBR: 177266 TELEPRINTER DATA BUFFER 
578 -PROGRAM CONTROL PORRHETERS 
89 001064 og00 RETURN: 0 SCOPE ADDRESS FOR LOOP ON TEST 
E81 001066 O00000 NEXT: 0 ;AODRESS OF NEXT TEST TO BE EXECUTED 
Ee> 001070 0000 LOCK: 0 {ADDRESS FOR LOCK ON CURRENT DAT 
63 001072 00000 TCOUNT: 0 ;NUNBER OF ITERATIONS. THAT QURRENT TEST WILL BE EXECUTED 
64 01074 900000 LPCNT: 0 ER OF ITEREATIONS COMPLETED 
Ess 001076 900000 TSTNO: 0 ‘NUMBER OF TEST IN PROGRESS 
| 282 01108 oSo0000 PASCNT: 0 iNEER OF cDNPCETES 
| €6? oo 0000 ERRCNT: 0 ToL NUMBER OF ERRORS 
| 28 001104 000000 [STERR: 0 ‘BC OF LAST ERROR CALL 
266 :PROGRAM VARIABLES 
| 


— SSS SS 
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| §9$2 001108 900000 TEMPL: 0 TEMPORARY STORAGE 
§$3 001110 900000 TEMPe: 0 : TEMPORARY STORAGE 
5&4 OOlile 900000 TEMPS: 0 : TEMPORARY STORAGE 
595 901114 900000 TEMPY: 9 : TEMPORARY STORAGE 
59 001116 gogces TEMPS: 9 TEMPORARY STORAGE 
597 0011 TEMPIO: O 
598 001122 900000 TEMP1I: 0 
599 001124 000000 TEMPle: 9 
600 OO1le6 g99905 TEMP13: 0 
60! 901130 SAVRO: 0 :RO STORAGE 
602 001132 900000 SAVRI: O :R1 STORAGE 
603 001134 90005 SavRe: 0 :R2 STORAGE . 
604 OO1136 955950 Saves: O :R3 STORAGE 
605 901140 Save4: 6 ?RY STORAGE 
606 001142 090000 Saves: 0 ?RS STORAGE 
£07 001144 900000 SAVSP: : *STACK POINTER STORAGE 
| 608 001146 900000 Savec: :OROGRAM COUNTER STORAGE 
603 001150 000000 SAVSRI: 0 *NEW DEVICE STORAGE 
b10 001152 900009 THEDR T: 0 :DP DATA 
Eid Bolise Seppe ape’ 
| 613 OO01166 00000 TSYNC: 9 :SYNC CHARACTER STORAGE. 
£15 Obi ibe 900006 XLINEX: 0 :LINE NUMBER STORAGE 
| $815 OOlle4 900000 CABLE: 0 
£16 901166 000000 TDATA: O ; TRANSMITTER DATA STORAGE 
| $17 001170 900000 RDATA: O :RECEIVE DATA STORAGE. 
| $18 001172 900000 CHLEN: 0 : CHARACTER LENGTH STORAGE ; 
£19 001174 900000 LIMIT: 0 :END OF DATA ST _ 
| 620 001176 9O00000 SCNT: 0 ; OUNT ST 
/ $21 001200 900000 Savsre: 0 :CONSOLE SWITCH STORAGE 
| $82 001202 900000 TIME: 0 
| 623 001204 900000 TP: 5 
| $24 001206 900009 RP: 5 
| 685 O01210 990000 Back: 0 :PROGRAM RTI RETURN STORAGE 
| 628 OO1212 900000 CONT.: O ?RETURN TO BEGIN TEST STORAGE 
| 6§27 001214 900000 DEVICE: 0 
| $28 O01216 900000 NO.CLOCK: 0 :CLOCK § 
| 629 OO1ge0 609 LG: .BYTE 0 760 HERTZ ST 
-| §30 OOlee1 000 FL619.2: .BYTE O :HF CRYSTAL PROGRAM CONTROL STORAGE 
631 OO0lzz2 00 “BYTE 0 : RATE TEST STORAGE 
| 832 001223 990 INIF.A: BYTE O £ ONLY CODE STORAGE 
| §33 O0l224 000 BORFLG: .BYTE O sBAUD RATE FLAG STORAGE 
bs O0lz25 000 BOTSTFLG: BYTE 0 :BAUD RATE TEST STORAGE 
+§36 001226 op0000 CHCNT: <WORD 0 ;CHARACTER COUNT STORAGE 
| 637 001230 900000 CLKSET: WORD 0 :PRESET CYCLE COUNT STORAGE FOR KWl! 
| 638 O01e32 900000 INTCNT: .WORD 0 ‘INTERRUPT COUNT STORAGE 
«BRB aptes! So aah ED ae eet nS ace 
Some Bo i5ae Boose AG: . WORD ; CONTROL STORAGE FOR BAUD RATE TEST : 
é42 O0le42 00000 PSTART: .WORD O ; 


POWER FAIL CONTROL STORAGE Te 
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| | co2 





| 643 
| e+ :PROGRAM CONTROL FLAGS 
B4— 001 INIFLG: .BYT aM NIT IAL IZATION FLAG 
| «Bis Bei? = BBE inTPES: -BYE 8 tests) 
| §48 OOlLS46 900 ERRFLG: BYTE 0 OCCURED LAG 
648 001547 000 LOKFLG: .BYTE 0 Eock ON CLRRENT TEST FLAG 
650 ; PROGRAM. CONVERSATIONAL bhrare! TERS 
651 301250 327 YNCNO: [BY $0 8 OF SYNC CHARS REQ'D FOR SYNC’ ZATION 
652 001551 7? XMIT: .BYT 77 Ss XMIT JUMPER, “IN” 
653 O0le5e 377 SEREC: “BYTE 377 :SEC REC J “7 
| 854 001253 377 TCLR: “BY 377 : OPTIONAL EER CLR "IN" 
| 655 001254 00 MULTD: .BYTE 0 !NO MULTIPLE DEVICE FLAG 
5 001255 377 JMRBY: iBYTE 377 EXTERNAL MODEM BYPASS JUMPER “IN” 
i 
! 


DOe2 
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5 


;PROGRAM MULTIPLE ee ete ay Ni 


| 
| LED 157 DEVICE ADDR 
| KeEPeeb: 5 EEO fer BEV ECE ot . 
| Baer: ; bes SEVcE RACER OR 
KEEPIV: 0 SAVED INTR VECTOR 
ACTREG: 0 !ACTIVE REGISTER ,,,MODIFY THIS 
soca ON TO D Sount IF y OR QUALIFY 
(1= RUN DON’T RUN) 
ROTADO: 0 ROTATING POINTER 435 ACTREG. . POINTS 
:TO DEVICE mesh UNDER TEST WHEN RUNNING MULTIPLE DEVICES 
sPROGRAM CONTROL FLAGS 
$y=0 





3 Der NT TONS FOR My Bg Hg CALLS 


677 INTERS TO SUBROUTINES CAN BE FOUND 
678 tN THE TABLE tereDIaTey FOLLOWING THE DEFINITIONS 
£80 5; ELSRESEERASERAASESASLAALAALSLSSELSLLASRELELLAALELALATAFLRELAELALE LEE 
i pes 901274 jesceqenennnepnenennvenensennennnanensnsnnenererneoennareqmennered: 
| 683 104400 SCOPESTRAP+0 :CALL TO SCOPE LOOP AND ITERATION HANDLER 
«684 )=«-001274 007650 SC 
68S 104401 DELAY=TRAP+1 :CALL TO DELAY FOR SPEC. TIME. 
/ §86 001276 007574 .DELA 
| §87 104402 TYPE=TRAP+2 :CALL TO TELETYPE OUTPUT ROUTINE 
«BB «001300 910154 TYPE 
 «§ss 104403 SAVOS=TRAP+3 :CALL TO REGISTER SAVE ROUTINE 
|  §90 001302 610760 
£91 104404 RESOS=TRAP+4 :CALL TO REGISTER RESTORE ROUTINE 
692 001304 O1:020 .RESOS 
633 ati an CONVRT=TRAP+5 ; ;CALL TO DATA OUTPUT ROUTINE 
 'ss 104406 CNVRT=TRAP+6 ;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
| §98 901210 Olose4 _CNVRT 
 «€9? 104407 INSTR=TRAF+7 CALL TO ASCII STRING INPUT ROUTINE 
| §88 O01312 011266 INST 
$99 1044516 PARAM=TRAP+10 ;CALL TO NUMERICAL DATA INPUT ROUTINE 
| 700 901314 O11052 . PARAM 
701 sOv41 SETFLG=TRAP+11 :CALL TO FLAG SET ROUTINE 
| 708 001316 611436 : 
| 703 104412 INSTERSTRAB+ 12 ;CALL TO INPUT ERROR HANDLER 
| 70% 001320 011404 TER 
Pe 7 104413 CKSWR=TRAP+13 :CALL TO SEE IF tG STRUCK - 
706 O01322 611506 K A 
707 104414 GTSWR=TRAP+14 sCALL TO TYPE OLD’ VALUE AND GET "NEW’ VALUE 
738 901324 611562 GTSWR 
i 710 5 LEREAERELE SERRA SALSA EASE A LALLA ALE ALE RAE LEA EAA LALAALALALARAALAREL ELE 
711 | LEERREREERESRAREEESEAERAEERAEEREAEEERAREEREEERRRERERERERRERE RSE ER ES 
| ile -RXCSR BIT DEFINITIONS 
2 ay 100000 osc=81T16 sDATA SET CHANGE 
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714 640000 
715 020000 
716 019000 
717 
71g 
718 002000 
720 009400 
7el 000200 
vee 000100 
7e3 000040 
re 000020 
Zes 090019 
726 COo004 
727 000002 
728 


RING=BITI4 RI _ 

CTS=BIT13 CLR TO SEND 

RECA T=BITII Senay pe eT 

SRO=B1710 iSEE REC Data 

DSR=8IT9 ;DATA SET RD 

STPSYN=B81T8 ; PS 

R =8IT? DONE 

RINTEN=81T sREC NTR NABLE 

DSINTE=B8IT :DSC I yas 

SYNSCH=BIT4 Rinc 

STO=B1T3 :SEC XMIT BATA 

RTS=81Te ZR SEND 
R=81T) DATA TERM RDY 


DT 
VOID=BITO 










a a  0e ce 
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-RXDBUF BIT DEFINITIONS 
730 100000 RXERR=BITIS ;REC ERROR 
7 papoee SR Nast itd : OVERRUN 
? FRMERR=BIT13 ME ERROR 
7 010000 PARER=BITI2 ‘PARITY ERROR 
734 -PARCSR BIT DEF IAIT ALS ence 
7 001000 paren=erts 
736 000400 EVPAR=BI1TS EVEN babi te NSE 
73? -PARCSR WRD ber 1h 
732 030000 SYNINT=30000 :SYNC EXTERNAL MODE 
? 020900 SYNEXT=20000 :SYNC INTERNAL MODE 
740 090900 YMOD=0 :ISOC MODE 
741 900000 FIVE= : WORD LENGTH S BITS 
ee 992000 $1x=2000 : WORD LENGTH : BITS 
744 attea Prent : LENT 8 BIT 
our 091000 NODPRR! : "PRELT 
747 001406 EVEPAR=14 BEATTY 
748 -TXCSR BIT cerita 
749 100000 DNA=BITI§ :DATA NOT AVAILABLE 
oe 649000 NTDATASSITIY :MAINT DATA 
j CLK=BITI CLK 
752 092000 BITW=BIT1O :BIT WINDOW 
753 900400 MRESET=BITS :MASTER RESET 
754 000200 TXDONE = ?XMIT DONE 
755 000100 TXINTE=B1T ?XMIT INTR ENABLE 
756 000040 DNAINTE=BITS !DNA_INTR ENAB 
757 900020 SEND=BIT4 ; 
758 000010 HDXEN=BIT3 : HOX/FDX 
75S 600601 BREAK=BITD : BREAK 





ee eee Se 
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ac SEP-" 
760 se :TXCSR WRD DEFINITIONS 

762 carla MINT=4000 : HEtN iT PRE MODE 

763 910000 MEXT=10000 :MAINT EXT MODE 

64 014090 SYSTST=14000 SYSTEM TEST MODE 

765 

a4 . RELEFSRAAAESSSAASALHSRALFESSERERSRESLESA SAREE L EL LAAL FLL AFF FLALELALELFESS 
763 001326 900001 DPRS:  .BLKW 1 :DP11 RECEIVER STATUS 

770 901330 900001 DPRB: = -BLKW 1 ;DP11 RECEIVER BUFFER 

771 001332 00000! SYNC: .BLKW 1 :SYNC BUFFER 

772 001334 900001 DPTS:  .BLKW 1 :DP11 TRANSMITTER STATUS 

773 901336 000900] DPTB:  .BLKW 1 :DP11 TRANSMITTER BUFFER 

om 001340 SEXT: .BLKW 1 :DP11 SYNC EXTENSION 

775 

777 SSPEARS REAELHARESE RA HASLSR SALAS RELL FAALERAFREELESKALAEARELAESLLELLE 
778 001342 900001 OPRIV: .BLKW 1 ;DP11 RECEIVER INTERRUPT VECTOR 
779 001344 900001 . DPRP:  .BLKW | ‘OPT RECEIVER PRIORITY 

780 051346 995051 DeTIV: -BLKM abet TaeNen TER Pe INTERRUPT VECTOR 
oes abe 606 ASVEC: Onis Is ETBeT Pee ee PATCH FOR YOUR FIRST VECTOR. 
783 091354 174779 BASCSR: 174770 FIRST Isp HEDDRESS. MAKE IT YOUR 

= * 4 PEEPELELFE THEFT FERFSSELESSEFEA ESF ESLSE LESH ESSE FSSSE LEE SEPS RELA PRS SE 
787 

738 ;DUL1 REGISTER POINTERS 

730 ¢ RELRALAHLELERALE EAA LEAL LLEL LAKE LAA LARAALELAELERELELAELALELERE 
73] “DEFAULT DU ADDRESSES 

732 001356 160049 RXCSR: {60040 

793 901360 160042 RXDBUF: 160042 

794 001362 i69042 PARCSR: 160042 

795 001364 160044 TXCSR: 160044 

535 anneal (atelte apenas LB OPAELT DU VECTORS 

7398 001370 000770 purty: 570 :REC INTR VECTOR 

798 001372 000772 DURIS: 772 :REC INTR STATUS 

800 001374 000774 DUTIV: 774 :XMIT INTR VECTOR 

801 001376 000776 DUTIS: 776 :XMIT INTR STATUS 


HOe2 
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go2 
803 -£#£HEEPART2 DB2SS CONNECTOR TEST SECTIONR#H4E% 
804 991490 OPil: a 
BOE abies poo 001050 MOV BSTACK sp ;SET UP STACK POINTER 
807 OO1406 Ol2e737 000340 177776 MOV ps :SET PROCESSOR PRIORITY = 
898 901414 012737 001400 OOle4e MOV sori. PSTART ; SETUP POWER FAIL 
803 O01422 012737 O02404 001064 MOV #OP11'A,RETURN :SETUP FOR REGULAR TEST 
810 DO01430 012737 O02404 00106 MOV #OP1!.A;NEXT  :DITTO 
81! 001436 012737 Oli7le 010406 MOV #EDP11, WHO 
812 001444 105037 001223 CLRB  =sCINIF..A :DP PROGRAM SETUP 
813 001450 005137 d01e40 TAG DITTO 
814 001454 005037 001074 CLR LPCNT DITTO 
815 001460 005037 901104 CLR LSTERR DITTO 
816 OO1464 105037 d01244 CLRB  =INIFLG :DITTO 
817 001470 005037 OO110e ¢LR ERRCNT DITTO 
818 001474 012737 O00012 o0107e MOV #10. , ICOUNT ;#0F ITERATIONS 
813, 001502 004737 O10040 CALL _TSTSUR : ARE WE USING THE HARD OR SOFT SWITCH REGISTER? 
820° 001506 005327 DEC (Bes ONCE ONLY 
821 001510 900001 -WORD 1 
555 poteis ratte 012146 TYPE DPTITLE 
824 001520 105777 177224 1S: TSTB = OSWR ;TEST FOR CHANGE IN DP ADRS 
825 00152e4 100005 BPL BGNOA :BRANCH IF NO CHAN 
get 001526 004737 006230 X.DP: JSR PC, CLRVEC iLO‘ ENTIRE VECTOR AREA WITH 
528 HALT 
ge3 901532 004737 006036 ISR ae LINE. N FETCH LINE NUMBER FROM“ SUR 
831 001540 004737 006330 BGNOA: JSR PC, orRvEC ; CLEAR QUT VECTOR AND GET NEW NUMBER 
ee O01544 004737 006106 we JSR PC'LINE.X :GET NEW LINE NUMBER 
as . 
834 O01 012737 oO01642 oOD1212 MOV #DP.UPDATE, CONT. ;SETUP FOR RETURN 
835 001556 105727 001244 TSTB —sCINIFLG :FIRST TIME? 
836 001562 001013 BNE PARTS :NO 
837 001564 105137 001244 COMB. =sCINIFLG YES 
838 001570 104407 INSTR ; OUTPUT MESSAGE & GET INPUT STRING 
€33 001572 014101 MBDTEST Ss 
840 001574 104411 SETFLG SET FLAG BASED UPON INPUT STRING 
841 001576 001225 BOTSTFLG :TH 
B42 001600 105737 odl2es TSTB §-BOTSTFLG ;D0 YOU WANT 10 RUN BAUD TEST? 
843 001604 001402 BEQ PART3 NO 
844 001606 090137 on2654 IMP BAUD YES 
B45 OOl6ie 012737 O02404 001064 PART3: MOV #0P11.A,RETURN :SETUP FOR RETURN TO START PROGRAM 
B46 001620 032777 O00002 177222 BIT #SWO1, aSWR | 
847 OO1626 001403 BEQ 
G48 O01630 012737 O02654 O01064 MOV #BAUD , RETURN 
84S 001636 000177 177222 1$: IMP JRE TURN :GO START 
850 OOle42 105737 O01i50 DP. UPDATE: TSTB SAVSRI ;NEW DEVICE? 
851 OO164E 100740 BMI PART2 :NO 
852 001650 600733 BR BGNOA YES 


—_— 
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855 o01652 
856 001654 012737 
857 O01662 Ole72? 
858 001670 013737 
B53 001676 7 
Bel Goizae 13737 
Bes Dolla Dlsroe 
863 001720 012737 
a: Be bee 
Bee 01740 DOS037 
867 O01744 005037 
B6e 001750 012737 
B63 001756 012737 
870 001764 004737 
871 001770 012737 
872 001776 105737 
873 002002 901004 
874 002004 104402 
875 002010 105137 
876 002014 032777 
877 O0e0e2 001017 
878 002024 032777 
878 002032 901404 
80 002034 012737 
861 O02042 O004D5 

O0e044 104402 

863 002050 012737 
e84 002056 000177 


22-00 
:36 


PepseeaaeRasasaE 
PRvlsteiteenatcayae 


-- 
res bare 
=f 
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177776 


O01e4e 
001236 


O0lele 
001072 


010406 


177026 
177016 
001064 


001064 


PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEG 


10e 


s RELRRZEREESEE PART3 RHEKENKESSEKREESE 
bull: RESET 


ONCE: 


1$: 
2s: 


#DULL.A,RETURN ;SETUP FOR REGULAR TEST 
#DU11-Q°NEXT  :DITT 
RXCSR, “DEVICE :SETUP FOR EOP MESSAGE 


INIF.A :CLEAR OUT FOR FIRST TIME THRU 
#340, PS :SET PROCESSOR orton ITY 
K SP SETUP STACK 

#DU11,PSTART SET UP POWER PPA a 

DU11°A,DD.A  :SET UP FOR RETURN TO START OF TEST 
LSTERR :CLEAR LIST 
ERRCNT CLEAR ERROR COUNT 

#ONCE, CONT. ;SETUP FOR REPEAT 

#10. , {COUNT :SET ITERATIONS = 10 

TSTSWR : ARE WE USING THE HARD OR SOFT SWITCH REGISTER? 
#£DU11,WHO 

INIFLG’ ;CHECK FOR FIRST TIME 
ONCE ;NO 

DUTITLE : YES 

tNIFLG 

#SWOO, ISWR ; CHECK FOR CONVERSATIONAL 

#SWO1, ISWR ; CHECK FOR BAUD RATE 


START, RETURN 
25 


MR ;LET_ OPERATOR KNOW TEST IS RUNNING 
#DU11.A,RETURN ;GO TO START 
JRE TURN 


0022 
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RB Rivhheviersiensuurcruaciut 


Ee SFSLBSKSHASREVSRE 


WOOWNMONOWWOWOWW 
Os 8 8 he he he 
WON Wwe 


SERRA 


930 


002062 


: 


me 


20-SEP-76 


852522 
ines 


14 


001260 
001256 


001266 
001264 


001272 
001270 


001256 
001256 


001270 


001272 
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AAR: 


.BYTE 
. BYTE 


-BYTE 
- BYTE 


-BYTE 
-BY 


is: 
es: 


PC, OKADR 
DUBASE , KEEPADD 


U 
KEEPADD, BASERDD 


DURIV,KEEPIV 
DURIV, BASEIY 


MULTD 
BEB 
xine 


OTADD 
DDD 


TE 
; THE FOLLOMING ROUTINE SETS UP A 
#1 ,ROTADD 


ac REG 
ROTADD,ACTREG 
ROTADD 


tio BASEADD 
LASTADD, BASEADD 


es 
ROTADD, ACTREG 


#1,ROTADD 


imESSAG MESSAGE & GET INPUT STRING 
ae RIN 


;HIGH LIMIT 
; STORE aT THIS LOCATION 


‘HOW MANY TIMES + 2 
:CHECK FOR VALID ADDRESS 


STORE FOR ROTATION 
outeUT MESSAGE & GET INPUT STRING 
COMET  biaeeee 
IMI 
{HIGH LIMIT 


; STORE AT THIS LOCATION 
;HOk MANY TIMES + 2 


: SAV 
:SET UP FOR ROTATION 
; OUTPU T MESSAGE & GET INPUT STRING 


SET FLAG BASED UPON INPUT STRING 
THIS FLAG 

:ARE_ THERE MUL TIPLE DEVICES 

:ON THE SYSTEM ? 

;YES,ASK NEXT QUESTION 


airy POINTER 
: JUMP AROUND NEXT QUESTION 


;OUTPUT MESSAGE & GET INPUT STRING 
;MESSA 

;CONVERT STRING 

;LOW LIMIT 

HIGH LIMIT 

STORE AT THIS LOCATION 


‘HOW MANY TIMES + 2 
CTREG FOR THE e FIRST TIME 


UP _ POINTE 
:CLR_ACTIVE REGISTER 
MAKE THIS DEVICE ACTIVE 


;SET UP POINTER 

;ARE YOU OUT OF RANGE ? 
;SET UP BASE ADDRESS 
31S mr THE LAST DEVICE ? 

;NO_DO IT AGAIN 

THIS A at THAT THERE ARE AT 

LEAST TWO DEVICES N YOU ANSWER YES TO 
;MULTIPLE DEVICE QUESTION 

;SET UP FOR LATER USE IN END OF PASS ROUTINE 


a 


SEG 0023 
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222 


aad Alt elas ad REE ES 


rks 
Bs: 
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001260 001256 
001260 001256 38: 


‘we * 
= 


.BYTE 
-BYTE 
002226 
DDC: 
001225 
004316 
003128 001064 OUTMUL: 
176460 


MOV KEEPADD,BASEADD ;DITTO 


Roy KEEPHDO, BASEROD Paks lye 
INSTR T MESSAGE & GET INPUT STRING 


MRANGE ines ch 
PARAM ; CONVER STRING 

160000 =LOW LIMIT 

167776 ?H SH LIMIT 

LASTROD hese AT THIS LOCATION 

1 “HOW MANY TIMES + 2 

IMP 1s :DO IT AGAIN 

INSTR sOQUTPUT MESSAGE & GET INPUT STRING 
SETFLG SET FLAG BASED UPON INPUT STRING 
BOTSTFLG 

TSTB = BOTSTFLG :D0 YOU ‘i To” RUN BAUD TEST? 
BEQ OUTMUL 3NO 


JMP START YES 
MOV BDU11.A,RETURN GO START REGULAR TEST 
ORE TURN 


SES 024 


_ ee TS 
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964 
96S 


dt Ee dat tat 


Bee 


Piet iieinisien tht 


b+ 0 + = b+ b+ b+ B+ b+ ob 0 


OoooOoOOIO00 
_ 
ONOMWM CWO 


Pll 20-SEP-76 


002404 


© 5888 ess 
S Bits OSeee SSNS 


ear 


8 
ee 


a9 -0CT-7 
4:36 


013000 
001124 


LOe 
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001124 


176600 


PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


;CABLE TEST WITH OUT EXERCISING THE SOFTWARE CLOCK. 
SIN THIS TEST FUNCTIONS OF THE CABLE _W WIL Be 

: TESTED WITHOUT THE S rw CLOCK. THE CLOCK MUST BE 
:SUPPLIED BY THE DFC11 


TEST#!! 
VERIFY Pat Co LOADING THE TRANSMITTER BUFFER 
; BRINGS vn cen i TO SEND” WHICH IN TURN | as, 
BRING UP "9 Wey eo AND “MODEM READY” 
; VERIFY ALSO HAT T Y GO AWAY. 
TE: THE BFCAt CLOCK IS NECESSARY FOR 
THIS TEST TO WORK. 


s ERERLELAAAELALALEREEE: 


; DP1l1 TEST FOR THE DFC11-A 
eitttiiittititerititi rier ies 


DP11.8: 
; RERELELAEEEEE 
$ 


TEST 1 


1 RERAEEEREEEEE 
St idelaiet ct taitelalabtril-t-1-1t-lelelaelelaelebleleielelebleieeleiseleiceinileisieieiabieiseieiieisieieisielel 
MOV 


#1, TSTNO 


MOV eTST2, NEXT 

MOV #0P . UPDATE , CONT. :SET FOR RETURN AT END PASS 
MOV #OPi1.A,RETURN ;SET RETURN ADDR 

MOV #. EOP, NEXT :GOTO END PASS AT EHO OF TEST. 

CLR aOPTS :CLEAR THE TX STATUS 


CLR aDPRS ; CLEAR THE. RX STATUS. 
CLR Re :SET TIME 0: 

MOV #13000, R0 

MOV aopte ;LOAD THE TX BUFFER 


pi 
1$: MOV QOPTS,R1 


CMP #13000, 
BEG: 2 
INC Re ;UPDATE DELAY 
BNE 1$ :T DONE? 
ERROR 1 ‘ERROR REQUEST TO SEND, CLEAR TO 
:SEND AND MODEM READY NOT UP. 
MOV #5, TEMP 12 
2s: CLR R2 SET FOR TIME OUT 
3$: INC Re : DELAY 
BY #13000,30PTS § ARE THEY GONE? 
BEQ 4§ 
DEC TEMP le 
SNE 2g 
ERROR 


SEG 0025 





MOe 
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1019 :VERIFY THAT THE SETTING OF “TERMINAL READY” BRINGS 
1020 :UP “RING” “CARRIER DOWN” ALSO VERIFY THAT 
1021 *CLEARING “TE INA READY” BRINGS DOWN “RING” 
10ee :AND “CARRIER DOWN” 
1024 O02S46 012777 OO0001 176560 4S: MOV 88170, a0PTS :SET TERMINAL READY 
1025 002554 104401 001500 DELAY ,1500 
1026 002560 017701 176550 MOV dOPTS.R1 
1027 902564 042701 153776 BIC ecceHoO1? RI; ba OENMANTED BITS 
1028 002570 022701 O24001 CMP #24001 ,R1 ip RING AND CARRIER DOWN SET? 
10238 002574 O01401 BEQ 
1030 002576 104001 ERROR 1 NBS -T YPE ERROR 
1031 002600 042777 990001 176526 S$: BIC #8170, 30PTS ; CLEAR TERMINAL READY 
1033 obebie 2393 120000 176514 CMP $120000, aDPTS yi THEY CLEAR? 
1034 001401 BEQ 6$ ry 
1035 O02622 104000 ERROR :NO--TYPE ERROR 
1037 :NOW TEST THAT DATA CAN BE TRANSFERED. 
1038 :@ BINARY COUNT PATTERN WILL BE TRANSHITIED AND RECEIVED 
1033 :WITH OUT THE USE OF THE SOFTWARE CLOCK 
1041 002624 005037 001106 6$: CLR TEMP 1 ;CLEAR OUT INFO 
1042 002630 005037 001119 CLR TEMP2 : 
1043 902634 004737 906472 ISR PC, SEQ. DATA :GO RUN SEQUENTIAL DATA TEST 
1044 O02640 104400 SCOPE 


~~~» ett tat ttt tt CCL CC CC CCC OL 
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;THIS IS THE SETUP FOR THE BAUD RATE TEST USING THE DP 
jopegonensnenene seperate 


DZDFAC.F11 20-SEP-76 1 


ed ed ed aed 
OQ 


SSSR er RE RRR RAR RaRRARE ES 
a 


| 


tore ty 001230 
177776 


Sata 
AIRY: 
SS “J 
B8 
wut 
<£ 
[on ] 


i om | a | 
oe 


ARPES 
: 
8 
a 


e777 003022 176444 
0003 


x 
tf 
—-—-OO000 


+ -+ b+ > = 0 bb b= & b+ = = Dw 8 oe = 


001230 


333 
88 
oo 
SS 
Syn 
a ary 
g 
if 


OV 250. , CLKSET 
IMP HSE TOP 
BAUD: MOV #34 
MOV tetAek SP 
RX: RESET 
DPSETUP: MOV #CON. RX, IDPRIV 
MOV #340 
MOV #N. TRAP, IDPTIV 
MOV #340, aDPTP 
MOV a-LINTCNT 
MOVB #100, JPRS 
TX: MOVB #252, aSYNC 
MOVB #252. JDPTB 
CLR CHCNT 
JSR PC, CLOCK 
TST NO: CLOCK 
BNE 1$ 
IMP te1.2 
1$: 
INSTR 
MCPS 
TFLG 
CPSFLG 
TSTB  CPSFLG 
BEQ NOTEO 
MOV #300. , CLKSET 
IMP KWSETUP 


NOe 


250 HERTZ SETUP 


¢3 PROCESSOR STATUS = 7 
;SET UP STACK 


;SETUP RX VECTOR 

; PROCESSOR STATUS = 7 
TUP TX TRAPCATCHER 
: PROCESSOR STATUS = 7 


; ONCE et 
TURN ON RECEIVER 
:SET . rl 
;LOAD T eres 
: CLEAR CHARAC ER COUNTER 


4O-DWt 
“ 


;FIND OUT IF KW11 IS AVAILABLE 


; YES 
:NO,CHECK SW 14 FOR SCOPE LOOP 


je de 3 MESSAGE & GET INPUT STRING 


1 
‘CET FLAG BASED UPON INPUT STRING 
:THIS FLAG 

31S AC SO OF 60 HERTZ 

;50 HERTZ 


:60 HERTZ 
GO SETUP KW 


SEG 0027 





BO3 
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DIDFAC.F 20-SEP-7E 14:36 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ c0ce 
1076 : THIS IS THE BAUD RATE INTERRUPT SVC ROUTINE 
1077 TERESSHERELREESRL SEPP SE ALLE SSE SPE FHS PRSSHE ELE EERE ESEESSEGSE 
1078 o03022 ooS237 001226 Kon. RX: INC: CHCNT sCOUNT FOR BAUD RATE CHECK 
1073 ae re 176276 isi QDPRE :CLR BUFFER 
ieee Il 006034 N. TRAP: MOV (SP), TRP.PC ; TRAPCATCHER FOR TX INTERRUPT 
1082 104010 ERROR 10 
-1083 903042 900002 RTI 
1084 03277? O40000 175776 SwW14.8: BIT #21714, aswR sFIND OUT IF BAUD RATE CHECK IS WANTED 
1085 0030S2 o0149e BEQ TST.2 NOT YET 
1088 003054 000137 003110 IMP OUT: PT ‘YES 
1087 003060 TST.2: 
1088 003060 104407 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 
4388 013224 MRBAUD MES 
l b03064 104911 SETFLG 591 FLAG BASED UPON INPUT STRING 
idsi 001222 LG :THIS FLAG 
i0$2 108737 001222 TSTB BAUDFLG 300 YOU STILL WANT TO RUN BAUD TEST? 
, -1083 003074 Ooi4i2 “BEG SWMP 
,» 1084 003076 104402 013100 TYPE | MSCOPBAUD ives FIND OUT IF SWITCH 14 IS UP 
1095 003192 900000 HALT WAIT FOR OPR TO PUT UP Sw 14 
1088 003104 000137 op3044 IME SW14.8 
1087 003110 112777 000103 176216 OUT.PT: MOVE #8103, a0PTS Sian ON TRANSMITTER 
1098 00311& 000137 003044 IMP Sui4'B 
1098 O03i22 000137 905722 J 
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0+ 08 be = 0+ + 2 = he ee oe he Pe we 


Shot Coto NOU E Gator Oo BRR Ptofose ; 


Po 
fu 


+ Bs Bs Bs Be Be bs B+ Be a8 Be Be Be Be Be Be Be be bt be Be Bo be Bee Bae hae Bee B= Be Be b= B88 8 Bo Be B2 b+ Be 8 Behe Os he B= he = 8 Be BH Oe Oe Be Be 


Be he Be Bee Be Bet Be at Bae Bae Bae at Be Be be Bt Be Bt hs Be be be Be Be Be Be Be Be Be Be Be be Bae Be bs be be pe 


thE tofar Caubab DORE GOFD = BED GOREN Ee Cotus- Eee ORO Le 


000010 


22-0CT-7 
236 


178714 


001076 
001066 
176176 
176166 
176162 
176152 
17614C 


001114 
COlile 


i761le 


176066 
176062 
176056 


001114 


es: 


CO3 


PROGRAM PARAMETERS, VARIAGLES, AND TRAP CALLS. 

5 ERRRREAER ERAS ERESERELEERESESEREEESESE REESE RE SESE 
;;0U11 TEST FOR THE OFC-11A 

5 RRRERERRSSAERAESESE REESE ERERALESSSESEEEEEES ES EE EEES 


ss THIS § TEST VERIEYS THAT THe OFC-11A IS CLOCKING DATA 

333 Bp TO OND SATAY TA "FERO yeRND REOUEST 16" cone 

CUE abe eae i OU, 

::NOTE: THE BCOSC M cae MUST BE ATTACHED 10 

33 THE DFC-118 AND oer TERMINATED WITH H31S CONNECTOR 
YMOD (ISOCRONOUS) 


: LENGTH: EIGH - y 
aie? "het EAB 13, SER THE RECEIVER eee Brg TER LOGIC THE DU11 


13:09 PAGE 29 


a IMP Bull. : ; JUMP AROUND 
: PRSSRREEEEEES 
TEST 2 
RESERESEEERES 
[EREREAPEEEPEE EERE REREAEEREEEREAEREREREREEEEEEDEESREREREREE SES EEEESE 
tst2: MOV 82, TSTNO 
CKSWR 
MOV #TST3, NEXT 
BIS SMRESET, JTXCSR ;MASTER RESET 


aT 
MOV SISYMOD,JPARCSR ;LOAD THE MODE 


BIS MRESET  ATXCSR MASTER RESET 
MOV #ISYmMop! EIGHT! 'NOPAR! 26, JPARCS THE MODE, 
:# OF BITS PER CHAR *eeaory cPkccihone PARITY), 
: 3SYNC CHARAC TER (ee) 
BIC aSRO! DSRS 10 
aRING! crs! iaRoET! GBB !DSR!STDIRTS!DTR, RO ; sSET UP FOR ERROR MSG 


MOV 0000 FEMS ;SET UP FOR CABLE DELAY bets DeLay 


; MAX. 
BIS 8OTRIRTS!STD, aRXCSR sSET DTR & RTS & STD 
1S: DEC TEMPS 
ERROR 2 sRING, CTS, CARDET,SRD,DSR,STD,RTS,OR DTR FAILED TO SET 


‘CHECK THE COSC’ CABLE 
:GO RUN THE TEST ANYWAY ! 


MOV aRXC SAVE ACTUAL 
BIC biCcRING!CTS!CARBET?SRDID DSRESTO!RTS!OTR>, Rl ;STRIP JUNK 
CMP RO,R1 T THEM YET 


NO NOT YET nAvBE THE BCOSC 
;CABLE_IS NOT ON OR TERMINATED WITH H315 


3$: MOVB 82S, JTXOBUF LORD THE CHAR 


MOV 863, JOURIV :SET UP TRAPCRTCHER 
MOV 8346, SDURIS :SET LEV EL? 

CLR Ps ALLOW INTERRUPTS 

MOV RXDBUF,TEMP4 § :SET UP FOR ERROR MESSAGE 


BESRRESCL SSE IRR EOS Esato noe aan T Ome ae 


ee 


8 


Tu 
=) 


> + 0+ b&b -* & & + & + bb b+ b+ b= b= © «B= B= FB & 2 Bb  —* &-* & = FB oO 0 B- &- 9 B+ & H+ > +b ~ & + + b= << D-< © + H-< -< Bo Bo 
~ 


ok 
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012700 
012777 


777 


3 


Sesce 
aa 


BRP 
SBae 


‘a 


DO3 


30 
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


MOV 825, R0 - EXPECTED 
Hoy #USER! SEND aTXCSE :OK NOW OAD SEND & USER MODE 
gis SSYNSCHIRINTEN, aRXCSR  :SET SEARCH SYNC 

:RECEIVER INTERRUPT 
!ENABLE & WAIT FOR INTERRUPT 
CLR TEMPS 
CLR = 
INC Re :WAIT FOR INTERRUPT 
BNE c$ 
INC TEMPS 
CMP #3, TEMPS 
BGE 4§ 
ERROR 4 ; INTERRUPT DID NOT OCCUR 
R 7$ 
THE FOLLOWING IS THE INTERRUPT SVC ROUTINE 
$: MOV #340, PS ;PREVENT INTERRUPTS 
MOV JRXCSR, RY : SAVE 
MOV JRXDBUF RI : ACTUAL 
MOV DURIS. JOURIV § ;RESTORE TRAPCATCHER 
CLR BOURTS 
MOV #83, (SP) :SET UP_RETURN 
BIC SRINTEN,SRXCSR ;CLR INTERRUPT ENABLE 
BIC SRINTEN, ORXCSR _;CLR INTERRUPT ENABLE 
MOV #340,PS' : PREVENT INTERRUPTS 
MOV .DURIS.30URIV ;RESTORE TRAPCATCHER 
CLR JOURTS 
36 -10$ 
oMP RO,R1 
BEQ og 
ERROR 2 ;CHARACTERS DID NOT MATCH 
: IF C ARE RUNNING IN CLOCK 
:RECOVERY ABOVE 9600 BAUD AND THIS 
SERROR OCC SWO3 = 1. THIS 
ERROR abso LEGITIMATE ONLY IF BELOW 

MOV RXCSR, TEMPY :SETUP FOR ERROR MESSAGE 

MOV #RXDONE , RO ; EXPECTED 

MOV R4,R1 ;AC 

BIC sti<RXDONE>,R1 ;SAVE ONLY RXDONE 

CMP RO.R1 

BEQ \ 

ERROR 6 :FALSE INTERRUPT 

SCOPE 


E03 
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20-SEP-7— 14:36 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 

1204 $3 THIS 7 Test IVERIFYS THAT THE DFCLIA IS CLOCKING DATA IN & OUT 
} 7 : T BE ATTACHED TO THE DFCLIA 
is NP RPO GAR SLE gD 
1205 HTLeNatY eT 
1210 ; 3; THIS TEST USES BOTH THE RECEIVER 8 TRANSMITTER LOGIC 
lell © SSESSESSESRESSLALFEAASFLESLERSASASELALASELELRALALLEES 
l2le 002532 11.8: 
lzl3  EREEPRESEREE 
1214 : 
1215 TEST 3 
l2elé 
lz217 erttttirttt ts 
1218 » EEE EEEE ESSER EREEEEE RES ES EE EE EE SEE EERE ERE EE EEES EEE EERE EL EEE LEE SEES 
1218 003532 012737 000003 001076 {ST3: Mov #3, TSTNO 
i220 003540 10441 CKSWR 
lee: O03s4¥2 Ole 007746 001066 MOV #. EOP NEXT 
lee2 002650 952777 O00400 175606 BIS BREST. aTXCSR MASTER RESET 
1223 003556 912777 030000 175576 MOV aSYNINT, 8 sooRCSR : SET 
tees 003564 052777 000400 17567¢ gis anRE SE jpaSTER RESET 
leek BS 3E05 pigoc2 popes? 1oeeey nov EAGT amas eet iSET SYNC INTERNAL, 
l bth "Bore HA CHARACTER 
l 003608 oS2777 000436 175542 BIS neous RTS! 1D, joer ARCH SYNC 8 
1230 a THA T RXDORE As RTS 
l2si ARRIVE NOT BEFORE 
lose NA CREF ORE, SET STRIP S 
1233 fae SET DTR, RTS,8& STD FOR THE DFC1IA 
ee Se cca ts BO ee aero Go oe WAIT FOR SYNSCH TO BE 
1236 él OCkED IN BY CLK 
1532 Dosesa ppepas COLE Mee a | 
1238 002622 005202 23: INC Re WAIT 
1 003624 001376 BNE 2$ 
i543 Gosese bessse B00088 oouue Ne gS TEMPS 
1243 poseas 002367 BGE is’ :GO BACK TO CLR R2 AND WAIT SOME MORE 
1 003642 012777 OOYO4H 175 MOV #65, ADURI :SET UP CAT 
1245 003650 012777 175514 MOV #340, JOURIS :SET PROCESSOR STATUS = 7 
is Pe Bi Bpoaa8 iPEeay NOY 975 OTN BET SOR STATUS = 7 
i248 37 raentd CLR pe’ :ALLOW IN PR 3 
1248 003676 013737 001360 001114 MOV RXDBUF,TEMP4Y § ;SET UP FOR ERROR MSG 
l 003704 012700 00025 MOV #25,R0° eee: CHAR 
1e61 003710 012737 000003 001112 MOV AE A tei ih: # OF SYNC CHARS TO GET INTO 
1253 003716 052777 000100 175432 BIS bRINT TEN, JRXCSR sSET INTERRUPT ENABLES 
1254 002724 052777 000100 175432 BIS #TXINTE, aTXC 

5 002732 0900137 003750 IMP FIRST XMIT INTERRUPT SHOULD COME 


12S 4§ ; THE 
1eSé FROM TXDONE = 1 AFTER A MASTER RESET 


rr SS 


DIDFA-B MACYLI 27(1 22-0CT-76 
ee tt ge 008 Ee 


001116 
177776 
175356 
175342 
175346 


175340 


175306 
1785300 


175244 
175244 


175214 
175204 


001116 
77776 


FOS 
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PROGRAM PRRAMETERS, VARIABLES, AND TRAP CALLS. 


dé: 


MOVE 826, JTXDBUF 
CLR TEMPS 
GU Re 
NC Re 
SNE c$ 
INC TEMPS 
CMP 83, TEMPS 
BGE 45. 
MOV 


BIC SPXTATE, aTXCSR 
BIC #RINTEN, JRXCSR 
MOV DURIS, SOURIV 


;LOAD SYNC CHAR 

;WAIT FOR INTERRUPT 
;CONTINUE TO WAIT 

;DONE YET? 

:60 BACK,NOT YET 

PREVENT INTERRUPTS 

CLR INTR ENABLES 

DITTO 

‘RESTORE TRAPCATCHER 
;RESTORE INTERRUPT CATCHER 
rT rot De 1 OCCUR 


eee iE ILURE MAY 
by TRanSMit DATA NOT 


Cae cue jist ne eNO 


CLR aD I 
MOV DUTIS. ADUTIV 
CLR aouTT§ 
ERROR 3 

inet cH aout 
BR 14S 


HARACTER CAN 


eer out OF THE TEST 


oP ng FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE 


DSDFAC 
125? 003736 112777 O0002 175422 3s: 
1 744 905037 O011ie 
1369 
ise2 Soscee | pees> golli6 
1363 603762 O22°27 000003 
et 
t3ee Bosoos piS3> BbSios 
1267 OO4008 045777 000100 
168 OO40i4 013777 001372 
1269 04022 175344 
1270 O04026 013777 001376 
1371 OO4054 175336 
1272 oo4040 104003 
1273 
5 
1276 
1557 
1278 oo4o42 00052) 

1376 
1380 
1281 oo4o44 
1282 OOM 017704 175306 
t5E Bosses BtS5os Ac SR 
ee ae 
i5a? bowora pheors «poeSoe 
t5eg bosioy puscee Socese 
i583 Bosiie BNSer> | BOBL AD 
1281 Oo¥le0 00002 
1535 
1294 004122 005337 01112 
1295 Gola 10003 
128 OOM130 O1e716 003736 
1298 004134 ooD002 
1299 O04136 O12716 oo4144 
1300 oowi4e 00002 
1302 004144 112777 oDD025 
1303 OO4iS2 O42777 00100 
1304 004160 005037 OOilie 
1305 OO4ie4 D05002 
1306 OO4166 O05202 
ee BLO cos 
1308 004176 022737 o00003 
1310 004204 002367 
1311 004206 012737 oD0340 
1312 004214 042777 O00] 


1 
175134 


MOV JRXCSR, RY 
NOV oii | 


URI 
puree aDUTIV 


1e$, (SP) 
#RINTEN, IRXCSR 
#TXINTE, JTXCSR 


RT 
ENO She FOLLOWING 1S THE XMITT 
>§: DEC TEMP3 


I 8$ 
MOV #3$, (SP) 


MOV #9$, (SP) 


VB 2S. aTXD 
BIC #TXINTE, JTXCSR 
TEMPS 

CLR Re 
11$ 
INC TEMPS 
CMP #3, TEMPS 
BGE 10$ 
MOV #340, PS 
BIC #RINTEN, IRXCSR 


RTI 
eaten INTERRUPT SVC ROUTINE 


{RES BIR spep CATCHER 


;CLEAR Sut RINTERRUPTS 


;SET UP_RETURN LOCATION 
Ste AN TERRLPT ENABLES 


;01 
Rou! 
INT cee ly SVC ROUTINE 
;8 OF S CHARACTERS LEFT 


;SET UP RETURN LOCATION 
; (LOAD SYNC CHARACTER AGAIN) 


;SET UP RETURN LOCATION 


sL TER 

;CLR INTR ENABLE 

;WAIT FOR INTERRUPT(RECEIVER) 
;CONTINUE TO WAIT 

YET? 


30 BACK,NOT YET 
;PREVENT | INTERRUPTS 
:CLR INTR ENABLE 


SES 0032 


om a ee —. 


peep veld 27010 
DZDF AC 20-SEP-7 


013777 
005077 


ob80°7 


04004 


3 


seanee 
=o 


042701 


BRPFLEELS 
Baas 


Pye 
fetetete) 


) 
6 
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14:36 


001356 
000200 


177577 


000340 


175140 
175132 


001114 


177776 


les: 


138: 


14S: 


GO3 


DURIS " wats 


ae 


2 
RXCSR, TEMPY 
#RXDONE , RO 


R 
#t0<RXDONE> ,R1 
RO,R1 

148 

6 

#340,PS 


;RESTORE TRAPCATCHER 


eh INTR FAILED TO OCCUR 
GET OUT OF TEST 


es DID NOT MATCH 
T UP FOR ERROR MSG 
: EXPECTED RXDONE 


TUAL 
‘SAVE ONLY RXDONE 


;FALSE INTERRUPT 
; INHIBIT INTERRUPTS 


SEG 0033 


















DZDFA-B MACY11 27( 1006) ae -OCT-76 13:09 PAGE 34 
DZDFAC.P11 20-SEP-76 14:36 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SES 0034 







133 .3 SFREASSSASA RSA FAA RHRASELAA RASA LE RAL HLAL AE LAER AF SRFFLEFLE 
l 
ES ;; BAUD RATE TEST 
ine s* SRSTASLSSSAELARASEAARALARALAASRA SL LAALARELLLLALSLALERFLLES 
1 
1337 : THIS TEST DETERMINES THE BAUD RATE OF THE DFC USING 
133 28 KW1l 1 /OP-11 AND PRINTS OUT THAT RATE. THE 
1339 ::TEST ALSO GIVES AN ERROR TYPEOUT IF THE BAUD RATE IS 
1340 ;;0FF BY MORE THAN 10%. 
1341 : MODE: 
isis Rack GHT 
134 $3 TEST USES BOTH TRANSMITTER AND RECEIVER LOGIC. 
1344 A SCOPE LOOP IS AVAILABLE BY USING SWITCH 
1345 tIMAKE SURE THE PROPER CONNECTOR 1S INSTALLED! ites! SEE 
1346 ::SECTION 1.O88et! 
1347 
1348 
1349 
ise 
1352 004316 012737 000340 177776 START: MOV #340, PS ;PREVENT INTERRUPTS 
1353 O1e70& 0010S0 V ine" sp :SET UP STACK 
1354 004330 000005 TXSETUP : RESET 
1355 004332 005037 o01226 CLR 
| 1356 004336 012737 177777 001232 MOV Se INTONT 
| 1357 004344 052777 000400 1750le BIS cue T, aTXCSR ;MASTER RESET TRANSMITTER 
1258 O043S52 012777 OebeS2 175002 MOV 6252’ JPARCSR ;LOAD THE MODE, WORD LENGTH 
| $359 904360 900240 NOP PARITY SENSE ue § SYNC CHARACTER 
1360 362 012777 OO0O4O 174774 MOV #40, ITXC :ASSERT DNA I 
1361 004370 042777 000100 i74766 BIC #100, aT #108, gTXCSR Cee ;CLR RXINTER. 
| 1362 112777 O00252 174762 MOVE ‘LOAD SYNC CHAR INTO SUFFER 
| 
| 
} 
| 
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4:36 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


174744 
174750 
174744 
174740 
174734 


I03 


ne ae :SET UP RECEIVER 
F | 

#NO. 0a aouTIV : P FOR Du 

#340, aoUTIS : INTERRUPTS 

PC, CLOCK :GO CHECK FOR CLOCK 

NO! CLOCK IS IT THERE? 

1S :NO,CHECK IF SCOPE LOOP WANTED 


3 ret MESSAGE & GET INPUT STRING 
T_FLAG BASED UPON INPLT STRING 


4 L 
cPSFL G :TEST FOR SO/60 CYCLES 
OB0CPS 520 CYCLE MACHINE 
3300. CLKSET ocxizen UP FOR CO" CYCLE COUNT 
#177546, NO FIND OUT WHICH CLOCK 
Kal airy TUP 


Kui ;KW11 TUP 
SINTSVC,a8100  ;SET i's ee | ROUTINE 


8340, a8 

a73eht PP ctend *KWILIL 

$100, aCLKSTATUS ;SETUP FOR CLOCK INTERRUPT 
PS ‘ALLOW INTERRUPTS 


RO 

#5,R1 ;WAIT - INTERRUPTS 
RQ SO THA AN 

i ; SYNC UF KW AND DEVICE 
1$ 


;TOOK TOO LONG---TIME OUT!!!! 


nn = eS 


JO3 
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DZDFAC.P11 20-SEP-76 1 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0036 
l 74 777 «Of 174432 INTSVC: BI $200, 2CLKSTATUS ;CLEAR THE MONITOR 
1 cata Roe555 BBE9S sid reooae +E ENT INTERRUPTS 
1398 OO4606 001015 BNE EEE :FIRST TIME? 
1393 10 737 001240 TST TAG ‘DP OR DU? 
14 1% 0014 Q INTS.A Ou 
1401 ib 900003 174510 BIS #3, 20PTS ‘YES, START OUTPUT OF DP 
i 1 174530 INTS.A eae 123. STXC R :KEEP goin WET buT Be Du 
1404: poss see aise INTE: MOV #BEGIN, (SP) ERT IRUE TO RUN TEST 
1405 O04640 o00002 RTI 
1408 04642 023737 001230 001232 EEE: CMP CLKSET,INTCNT :ARE WE DONE? 
1407 OO4650 001403 BEQ : YES 
1308 oo46S2 012716 oco4sso Mov BEGIN, (SP) NO, CONTINUE TO TEST 
hts BBdEER 900101 174346 1S: BI #101, 9CLKSTATUS ;SHUT OFF CLOCK 
1411 OO4666 012716 004710 MOV #BOTAG, (SP) :GO DETERMINE BAUD RATE 
lle Oo467e o00005 RESET 
1414 7% Ole 000372 001230 NOBOCPS:MOV #250.,CLKSET  ;S0 CYCLE SETUP 
1415 004704 000137 O04504 IMP KWSETUP 
Iai? DONTID 012737 194s: cow7sy TRS mov az gz00. 658 
1418 004716 023727 O01226 031620 CMP aNenT #1 S200. ;COMPARE TO THIS HIGH END 
1419 O04 101404 Sel: BLOS 64S ; :ANSWER IS TOO HIGH 
1421 O0473e Apa 35 IMP em 
1422 004736 023727 001226 o2S060 64S: CMP CHCNT, #10800.  ;COMPARE TO THIS LOW END 
1423 004744 103410 ) :NOT HE 
1424 OO4746 104402 013643 YPE §_,MBAUDRT :TYPE THIS RATE 
1425 OO47S2 104402 TYPE 
1426 004754 00000 6S$: oO 
1427 004756 104402 013670 TYPE MRITE 
1428 OO4762 000137 005722 IMP MAINPR 
1429 O04766 6S: 
1430 OO4766 012737 013461 oDso32 MOV #M9600, 68$ 
1431 004774 023727 O01226 014710 cue CHCNT, #6600. ;COMPARE TO THIS HIGH END 
1432 101404 BL OS 67$ ANSWER IS TOO HIGH 
1433 104402 013544 YPE MWRONGRT 
1434 005010 000137 JMP Swi4A 
1435 005014 023727 001226 o12430 67%: CMP CHCNT, #5400. ;COMPARE TO THIS LOW END 
1436 005022 103410 BLO 69$ : 
1437 005024 104402 013643 TYPE § ,MBAUDRT ‘TYPE THIS RATE 
1438 005030 104402 TYPE 
tua BREDSH Soaaoe 70 ees: re RIT 
a Bong neta 22 at IMP HATE 
int ed ats peaag MP sth badeo COMPARE TO THIS HIGH END 
1445 1014 0s ons , ANSWER IS TOO HIGH 
1446 005062 104402 013544 TYPE MWRONGRT 
1447 005 IMP 14A 
8 001226 oos214 708: # CMP CHCNT, #2700. ;COMPARE TO THIS LOW END 
144 100 103410 BLO 2s NOT HERE 
1450 OOS102 104402 013643 TYPE _,MBAUDRT ‘TYPE THIS RATE 
1451 OOS106 104402 TYPE 
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005110 
005112 
005116 
00S 122 
00Si¢e 
pete 
O08 186 
Reon 
00818 
005160 
005164 
005166 
005170 
005174 
BaeSog 
005206 
005214 
005216 
Doses 
005236 
00S24e 
005244 
O0S246 
00S2Se 
00S2S6 
005256 


SRE BSBSsskBosk 
aug & ane 


Se 


ie 


cs 


8 


22-OCT-76 13:0 
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013670 
005722 
013477 
001226 
013544 
OOSES6 
001226 
013643 
013670 
005722 


013506 
001226 


013544 
00S&56 
O0ieeb 
013643 


013670 
005722 


9 PAGE 37 
718: 0 
TYPE MRITE 
oat IMP MAINPR 
005166 MOV #2400, 743 
003162 CMP CHCNT, #1650. 
LOS 73§ 
YPE 
IMP gyi4a 
ooeso6 73%: ### CMP CHCNT, #1350. 
BLO 75§ 
TYPE § ,MBAUDRT 
TYPE 
resis i * MRITE 
a is MAINPR 
905244 MOV - #M1200,77$ 
001471 CMP CHCNT, #825. 
BLOS 
TYP MWRONGRT 
J 14a 
001243 76S: chp CHCNT, #675 
TYPE, T 
TYPE 
773: 0 
TYPE MRITE 
‘i IMP MAINPR 
005322 MOV 8600, 80S 
000635 CMP CHCNT! #412. 
‘7S 
IMP Swi4A 
oo0s21 79$: CMP CHCNT, #337. 
BLO 81$ 
TYPE, 
TYPE 
80$: 0 
TYPE MRITE 
sake IMP MAINPR 
905400 MOV 83 
000317 CMP CHCNT. #207. 
B.0S 46-2 
TYPE MWRONGRT 
IMP SW14A 
000251 82%: CMP CHCNT, #169. 
BLO 84S 
TYPE § ,MBAUDRT 
TYPE 
es: fre smite 
IMP MAINPR 


B4S: 


KO3 


PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


;COMPARE TO THIS HIGH END 
;ANSWER IS TOO HIGH 


; COMPARE TO THIS LOW END 
:TYPE THIS RATE 


;COMPARE TO THIS HIGH END 
;ANSWER IS TOO HIGH 


;COMPARE TO THIS LOW END 
sNOT HE 
; TYPE THIS RATE 


;COMPARE TO THIS HIGH END 
;ANSWER IS TOO HIGH 


3C TO TH 
7 ONPARE IS LOW END 
TYPE THIS RATE 


COMPARE TO THIS HIGH END 


PANSWER IS TOO HIGH 


;COMPARE TO THIS LOW END 
sNOT HERS 
TYPE THIS RATE 


| Oo 


DZDFA-B MACY11 2 
ec 


ZOFAC.P11 
eae 


Sats 


UOTUTUTUTUT UU 
0+ b= b= 0 b= b= Bhs hs Be 
00 NOU £ Lote 


b+ b+ = 0+ = b= + ob bs Bo Be Bo Fo ho 


SSG 
2 


7 (1006) 
~SEP-76 


012737 
rit’ 7 
1014 

104402 


al 


104402 
000137 


104402 
000137 
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14:36 
013533 O0S4S6 MOV 
OOlee& 000147 CMP 
BLOS 
013544 * TYPE 
3b IMP 
1 0ocieS sss: rp 
013643 TY 
TPE 
86$: 0 
013670 TYPE 
005722 IMP 
87$: 
013544 TYPE 
OOSESE 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


art150, 868 

CHCNT, #103. ;COMPARE TO THIS HIGH END 
SANSWER IS TOO HIGH 

MRONGRT 

GHENT. ; COMPARE TO THIS LOW END 

, MBAUDRT :TYPE THIS RATE 

MRITE 

MAINPR 

, MWRONGRT sEITHER DEVICE DIDN'T TURN ON 


;0R COUNT WAS OFF BY MORE THAN 10 PERCENT 


SEG 0038 


MO3 
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D2DFAC.P15 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEG 0039 
1528 :KWL1-L EXIST. ENTERED BY JSR PC,CLOCK” 
1523 SakbakanRanrinanesenseaseseheasehataixeenenne cues 
1530 995500 01376 999004 ALOcK: Nov ae, (SP) s SETUP FOR INTERRUPTS 
1 005510 513548 BpSeUE 900004 MOV #23; 84 gc 13 gui f KWLIP 
1533 005516 0127327 000340 900006 MOV #340, deb :PREVENT INTERRUPTS 
{ese Boeesa Guess | PosEde is: ft = Dai s7eue L CSR 
1 ppeesa Spa oaG NOP Natt 
1537 005536 012737 177546 O01216 MOV #177546,NO.CLOCK; THIS IS THE ONE 
1538 005544 O00416 BR 4$ 
1533 OoSS¥46 012737 005574 O00004 2s: Moy #28, 904 “ : SETUP 1 CHECK KWLIP 
iS4i poee ee peesss 172540 oh eet *KW11-P CSR 
1542 905562 900240 NOP : WAIT 
1543 OOSS&4 012737 172540 O01216 MOV #172540,NO.CLOCK; THIS IS THE ONE 
1544 905572 o00463 BR 
1545 005574 104402 013052 3$: TYPE MNOCLOCK ; THERE IS NO CLOCK 
1546 905600 de2626 : CMP tSP)+, (SP)+ :POP STACK 
1547 OO0S602 012637 oo0cos 4$: MOV (SP)+) dae sRETURN ADDRESSES 4 AND & TO NORMAL 
1548 OOS606 012637 000004 MOV (SP)+;a84 DITTO 
1549 O0S6!2 000207 RTS PC 
1550 005614 012737 004574 OO0104 KWIIP: ‘MOV #INTSVC,38104  ;SETUP FOR INTSVC RTN 
1551 005622 012737 000340 000106 MOV #340, a#106 :PREVENT INTERRUPTS 
1552 005630 012737 177777 172542 MOV 8177977, a8172es42" ;PRESET COUNT SET BUFFER 
1553 005636 012737 172540 001234 MOV #172540, CLKSTATUS WLP CSR 
1554 005644 012777 000135 173362 MOV #135 SCLKSTATUS CE top INTER EN AND STATE 


1Se7 ;ROUTINE TO FIND OUT IF Ei. & oat OR 
i555 O0056Se 9000137 d04S50 JMP BEGIN O START BAUD RATE CHECK 
| 





NO3 


DZDFAC.P11 20-SEP-76 14:36 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. ; SEG 0040 
1 OOS6S& 9032777 O40000 173164 SWI14A: Bir SB 1114, SSWR ;FIND OUT IF SCOPE LOOP IS WANTED 


OZDFA-B MACY11 27(1006) 22-OCT-76 13:09 PAGE 40 


1558 005666 000137 005726 JMP OUTPUT ;RUN BAUD SCOPE LOOP 
1559 005672 TEST2: 
1560 O0S67e 104407 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1561 005674 013224 MRBAUD ; 
1$$2 005676 104411 SETFLG ;SET FLAG BASED UPON INPUT STRING 
1563 005700 O0l2ee BAUDFLG ;T A 
1564 905702 105737 O0leee TSTB BAUDFLG ;WANT TO RUN BAUD TEST? 
1565 005706 001405 BEQ MAINPR ;NO 
1566 005710 10440e 013100 TYPE » MSCOPBAUD 
1567 005714 000000 HALT ;WAIT FOR OPR TO PUT UP SW 14 
1568 095716 000137 OOS&SE IMP SW14A 
1569 O00S7ee 000177 173310 MAINPR: JMP YOD.A ;JUMP TO MAIN PROGRAM 
1570 IF DU GO TO DULI. 3A, IF DP GO TO DPi1.A 
1571 005726 005737 001240 OUTPUT: TST TAG iat OR DU? 
1572 005732 001404 BEQ 1$ 
1573 005734 052777 000103 173372 BIS #103, dDPTS START OUTPUT 4 DP 
1574 005742 O00403 BR es ii GOING WIT TER 
1575 005744 Ole777 000020 173412 15: MOV #20, aTXCSR ON TRANSL R cer DU 
1576 005752 032777 O40000 173070 2: BIT #BIT14, aSWR SURE SW 14 
1577 005760 001374 es 
1578 00576e 000005 RESET 
1579 005764 000177 173246 JMP aDD.A ;GO_ RUN NORMAL TESTS 
1580 005770 013451 XXTABLE : 419200 ;MESSAGE SETUPS 
1581 005772 013461 M9600 ;DITTO 
1582 005774 013470 M4800 ;DITTO 
1583 005776 013477 M2400 ;DITTO 
1584 006000 012506 M1200 ;DITTO 
158S 906002 013515 M600 ;DITTO 
1 006004 013523 M300 ;DITTO 
1S 006006 012531 M150 spe rte 
l O06010 013537 M7S ;DITTO 
1589 O0060le O0Se37 O0l2c6 CNT.RX: INC CHCNT ; UPDATE COUNTER 
ea pass 005777 173336 AT @RXDBUF ;CLR RX DONE 
532 O0060e4 011637 006034 NO. TRAP: MOV (SP), TRP.PC ;IN CASE TX TURNS ON 
1593 006030 104010 ERROR 10 ;ERROR MESSAGE 
S34 O00603e 90000¢ 
1595 006034 000001 TRP.PC: .BLKW 1 
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DIDFAC.P11 20-SEP-76 14:36 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0041 
1897 sLINE.N SUBROUTINE TO FETCH THE LINE 
i) : NUMBER AND EIRS DP11 VECTOR ADDRESS FROM 
1599 : THE CONSOL SWITCHES 
1600 :SWO-SWB=VECTOR ADDRESS OF FIRST DPLI 
1601 : SW9-SWIS=LINE NUMBER OF DP11 SELECTED FOR TEST 
1603 006036 005037 001102 LINE.N: CLR ERRCNT sCLEAR ERROR COUNT 
1804 O06042 017737 173002 001150 MOV aSWR, SAVSRI :SAVE CONSOL SWITCH SETTINGS 
1605 906056 017700 172774 MOV DSWR;RO 
1606 606954 900000 HALT ;SET SWR TO LINE NUMBER 
1607 :LOW BYTE = FIRST DP VECTOR 
| 1608 ‘HIGH BYTE = LINE NUMBER(S) 
| 1608 OO60S& 017737 72766 001200 MOV aSWR, SAVSR2 :SAVE CONSOL SWITCHES 
1610 06064 017700 172760 MOV DSWR, RO 
tei3 Senos E5e8 Boose oP Rl 
1613 006074 113701 001201 MOVE  SAVSR2+1,R1 ;SAVE LINE NUMBER 
1614 006100 042701 O0000 BIC 1,R1 
Ete Boe ise seat 001162 LINE.X Rov 4 Rl 
- . : . 
iis 006112 Beas 001150 CLR VSR1 
1618 OO06116 00630! ASL l 
1618 006120 006201 XTAG: ASR RI ;CLEAR LSB 
1620 006122 010137 ool116e MOV R1, XLINEX 
1621 006126 00630: ASL Ri sSCALE LINE NUMBER TO ADDRESS 
755 306130 006301 ASL Rl :MODULO 10(8) 
153 Boe 13 pees 173214 #2 JBASCSR :DOES LINE O REALLY EXIST?? 
/ 1625 006140 O00240 NOP 
| 1626 O06142 105737 001150 TSTB  SAVSRI 
| 1627 06146 ioguss BMI ig 
| 1628 O06150 012737 o06262 oD0004 MOV $33,384 
' 1623 006156 013702 001354 1S: MOY pastsr, ;SET R2 = LINE 0 ADDRESS 
4830 06162 160102 SUB R1 Re !MANUFACTURE DEVICE 
| 1831 OO61E4 012703 001326 MOV sOPRS,R3 :R3 = ADDRESS OF RCV STATUS ADRS 
| 1832 906176 MOV Re. (R3)4 :LOAD RCV STATUS ADRS 
' 1633 O06! 7ee TST (Re)+ :INC TO RCV BUFFER ORS 
1624 006174 010223 MOV R2, (R3)+ ‘LOAD RCV BUFFER ADRS 
1625 006176 Od0S202 INC tINC TO SYNC BUFFER ADRS 
1636 906200 O102e23 MOV Re, (R3)+ "LOAD SYNC ADRS 
| 1637 O06e0e O05ede INC INC _TO_XMIT STATUS ADRS 
| 1638 O06204 910223 MOV Re, (R3)+ :LOAD TRANSMITTER STATUS ADRS 
| 1639 O06206 905722 1ST (Re)+ ‘INC TO XMIT BUFFER 
| 640 O06210 O10223 MOV R2, (R3)+ *LOAD XMIT BUFFER 
| 164) poeele o0s2d2 INC *INC TO SYNC EXTENTION 
| Jews 14 010223 MOV Re, (R3)+ "LOAD SYNC EXTENSION ADRS 
- 1643-00621 p12? 200 MOV SAVSR2, Re :SET UP VECTOR ADDRESS 
| 1e44 1 8tC<77?> , Re ;CLEAR LINE NUMBER FROM VEC ADRS 
| Leas 226 105737 001150 TSTB = SAYSRI 
| 1e46 O06232 100402 2 
1647 006234 013702 o013S2 M BASVEC, R2 





et ne eee 
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DIDFAC.P11 -SEP- 
1648 06240 0601 
1648 OOge42 O10e2 
| ies) Sosews O0S7e8 
| is Bee ee 
ies toe 
teee Doeses papas 
1657 O06262 005037 001162 
ieeg poses Batgpe S000He 
Het Bae Be 
| eel 
1662 
| 1663 
1664 006276 oOONTI1 
1565 006300 Oo0240 
166 06302 00240 
| iBE Borne po0e 30 
| 1669 005310 Oo0676 
1670 O06312 Ol273? 00006 
| 1671 006320 013737 001326 
1672 006326 -000207 
| 1673 
1874 
1675 
1EoS  poeaa0 012702 000300 
1678 006334 12701 000302 
«FEES BRRSIS ptOiee 
| 1681 006344 Oeei21 ee 
j : | 
| Jee3 poe ses vate 
| 1684 006354 O00207 
| iees 
| 168 
168? 


¢ LELLESELELELLELRALSSAETFELEAALESLELEFLLELELSE 


;DP11 LOGICAL ENDING 
; EEERRESESEESEESERREA EERE SERASESALESEELE LES 


4§: 
ss: 


R 
j RERRAAERESERASERESESECL VE PRSEREEE LESSER SESEREEE REE LEE ES 
;CLRVEC,ROUTINE TO FILL COMMUNICATION VECTOR ARER WITH .+2,HALT 


“76 13:09 PAGE Ye 
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEG O04e 
2s: ADD i: ;SET VECTOR DRESS ToL INE NUMBES 
MOV Re, ! 3)+¢ LOAD RCV OR 
TST ‘INC TO NEXT VECTOR 
MOV Re (RQ) + :LOAD RCV PRIORITY ADRS 
TST (RE) + :INC TO NEXT VECTOR 
MOV Re (R3)+ ;LORD_XMIT VECTOR ADRS 
TST (RE)+ :INC TO NEXT VECTOR 
tov Re, (R3) “LOAD XMIT PRIORITY ADRS 
38: CLR XL INEX 
ere, fe 


CLRYEC: MOV 
MOV 


1$: 


MOV 
CLR 
CMP 
CMP 


BNE 
RTS 



















CO4 


LINE. x 
#6, 084 
DPRS , DEVICE ;SET FOR END PASS MSG. 


#300, Re :R2 COMM VECTOR AREA ADRS 
sINIT Ri WITH ADRS OF HALT 
‘AB sMOV .+2_T 
:MOV HALT TO PC 
(RID (RL)+ INC TO NEXT VECTOR AREA 
8776,R1 tEND OF VECTOR AREA 
1$ :NO 
PC : RETURN 








pohe ap res 27 ( Ae 
ZOFAC ec 


1688 


tannin 
BIRRP Oe Be 


dddsovdases 


oO 
ee 


di 


ce as 


y 
3 


: 


Bee 
rw 
ads 


: 


8 
3 


22-OCT-76 
14:3 


013333 


COB44E 


001050 
006436 


17eSS0 


13:09 PAGE 43 
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


5 SFRERESESEAESRSESRESOKADRERRERARSREEHSEAS RELL L ESE ESET 
OKADR, ROUTINE TO CHECK FOR VALID DU ADDRESS 


;POWER FAIL ROUTINE 






a6 TUF FOR INTERRUPTS 


ia TO CHECK ADDR YOU SELECTED 
: PREVENT INTERRUPTS 


;WAIT 
;ADORESS OK 
Peerage OPR KNOW 
WAIT FOR OPR TO DECIDE IF ADR IS Ok 
IF S WAS OK THEN RUN DU DIAGNOSTIC 
;IF ADRS WRONG RESTART TEST AND ANS QUESTIONS 
ere ss TO NORMAL 


; LOAD PFAIL VECTOR FOR POWER UP 


WAIT TTY TO COME UP 
;REINIT STACK POINTER 
:LOAD PFAIL VECTOR FOR POWER DOWN 






















1723 
7e4 


~ 


006472 
006472 
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Ae 
"EN 
2959 


es 


oOo 
-— 
tf 
~“ 
8 


Se 


— 
CC 


Z 


s -OCT-76 
4:36 


00704 
bof 


001210 
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EO4 





PROGRAM PARAMETERS, VARIAGLES, AND TRAP CALLS. 


1$: 


3$: 


4$: 





#4$ , BACK 
XT 
TA 
sper 
S 
abi 76 ,gOBRS 
ee, ay CaVERI 


HR dt 


sce, TSYNC 

a IMIT 

eTvis, aDETIV 

8RV18' SDPRIV 
SONT 

Taine, SSYNC 

#BITE’ SOPRS 

8301, a0PTS 

TEMP] 

3$ 

TEMPE 

3 


PC 


EAR SY XTENTION 
iRECE VER ate 
 Ranisn MIT TER DAT 
snecelven ST aris 
RANSMITTER STATUS 
TRIP_SYNC 


" 
;CHAR LENGTH INDEX 
TEST le BIT CHAR MODE 


ET BP af's/ConRaCTER 


pe FOR 1 
ACE MSB iF SYNE aN SYNC EXT 


TEMPORARY CHARACTER LIMIT 
TORAGE 


;SYNC COUNT=4 
;LOAD_ SYNC 
;RCV INT ENB 


iTRans Bone 
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? 901160 
158 Sore GbBa9> BALIFE 


1763 006730 Qle’7? 006740 


3 
“ 
: 






FO4 


45 
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


TSYNC , aDPTB 
TSyNCHL, aSEXT 


if 
8TV19,aDPTIV 


XMIT SYNC 
TOAD SYNC EXT 
SHAVE 2 SYNC'’S BEEN XMITED 


:NO 
YES CHANGE VECTOR 


;SEQUENTIAL DATA TRANSMITTION ROUTINE 


13:09 PAGE 
172422 TV18: MOV 
172416 MOVE 

DEC 
BNE 
172410 MOV 
1S: RTI 
172366 TV19: BIT 
BEQ 
ERROR 
1S: TSTB 
BMI 
ERROR 
172346 2S: MOV 
INC 
001166 CMP 
BNE 
172322 BIC 
3s: RTI 





#140000, aDPTS 
i$ 

a0PTS 

2s 

ae, arte 


LIMIT, TDATA 
#140, a0PTS 


;ANY STATUS ERRORS 


;REPORT ERROR 
; TRANSMITTER READY | 


NO 
YES, CLEAR INTERRUPTS 


SES 0045 


















DZDFA-B 
DZDFAC 
1782 
1783 
1784 go7o14 105777 
1785 007020 100401 
178 O07bee 104000 
toa Sernsa BtSeHt 
1783 O70 63777 
t5ay Boseas | By Se97 
1732 0702 104001 
1533 BoSbes Boese 
1795 007066 023737 
179 007074 001037 
1797 907076 005037 
1798 007102 005037 
1799 007108 005237 
1800 OGri1e Oler77 
tEb Basis Bess? 
1803 007134 045777 
1204 07142 0S2777 
1805 007150 053777 
1806 007156 062737 
i807? D07164 O22737 
1808 007172 901401 
| 1808 07174 OOo0D2 
1810 0907176 O0S07? 
| 1811 007202 005077 
1812 007206 042737 
1813 007214 13716 
i8i4 00 po02 
j 
i 
j 


coco eee eee oer or e+ 


172306 


001170 
172274 
001170 


172260 


: 


S88 88 
Sea 3S 


5 
SRSoR 


172266 
001152 
172244 
001170 


GO4 
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PAGE ¥ 


;RECEIVE SEQUENTIAL DATA 


RVI8: TSTB  adDPRS 
BMI 1$ 
ERROR 

1S: MOV RDATA, RO 
MOV JOPRB;R1 
chp RDATA, aDPRB 
MOV RB, TMPDAT 
ERROR 

2s: BIC #8170, DPRS 
INC RDATA 
CMP LIMIT,RDATA 
BNE 3$ 
CLR RDATA 
CLR TDATA 
ASR LIMIT 
MOV #TV18, ADPTIV 
Hoy #4 Schr 
BIS #68tT0, aDPRS 
BIC #81T11, aDPRS 
BIS #301, OPTS 
BIS CHLEN, JDPRS 
ADD #400, CHLEN 
CMP #1400, CHLEN 
BEG ug 

3S: RTI 

4g: CLR aOPTS 
CLR BOPRS 
BIC #B1T5,PS 
MOV BACK, (SP) 
RTI 


SES C046 


sRECEVIER DONE?” 
;REPORT ERROR 


CORRECT DATA 


;STORE DATA 

-REPORT ERROR 
sCLEAR STRIP SYNC 
!NEXT CHARACTER 


;DECREASE LIMIT TO 7 BITS 
;SET UP SYNC TRANSMITTION 
;SYNC_COUNT =4 


STRIP SYNC 
;CLEAR RCV ACTIVE 
;CHANGE CHAR LENGTH 


!DECREASE CHAR LENGTH 
sHAVE ALL LENGTHS BEEN TESTED 


:NO 

:CLR TRANSMITTER STATUS 
;CLR TECEIVER STATUS 
;PRIORITY = 4 


| HO4 
| pepee-8 PLL as rr Hee" he 13: OB oGRER PARAMETERS, VARIABLES, AND TRAP CALLS. 
| ABI anzo22 013737 007312 O013S& DUADOR: Rov" BREE Rx 

igi Sores Ciara BOrade Sbte7§ Hoy Bxcsk, peice 

a Ges Gee Boe Be 

1820 o7e5e abe oarate MOV sige. "BORE 

1821 le ADD #2, DUBASE 

1822 007266 013737 O07312 001364 MOV SUBSE TXCSR 

1823 007274 062737 000002 007312 ADD 2, DUSASE 

1824 613737 007312 MOV SoORSE. TXOBUF 

1825 007310 900207 S PC 

sek 007312 090000 DUBASE: 0 

iss 


/ 
| 
| 
| 
| 


;XXx0 


3 XX 
XX 


$XXX4 
3 XXX6 
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000042 


000340 
171416 


001270 


177776 


TO4 


48 
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


; THE FOLLOWING CALCULATES THE NEXT DEVICE ADDRESS AND ASSOCIATED 
:VECTOR ADDRESSES IF RUNNING MULTIPLE DEVICES (Dull...DFC11°S) 


DU.UPDATE: 
BE 


RUNIT: 
ZERO: 


1$: 


REPLAY: 


TSTB MULTD ;ARE YOU RUNNING MULTIPLE DEVICES ” 
ccc AR 


NO, J 
aint Re ANY DEVICES ACTIVE ? 
ACTREG, RO io ay ACTREG 


SELECT sh wee TO RUN @ ACTREG: 


SWITCHES & HIT cbRTIRUE: | =1) 
: START oy ER AGAIN...... YOU DESELECTED EVERYTHING 
#10, BASEADD ‘NEXT BLOCK (ADDRESSES) 


10, BASEIV ;NEXT BLOCK (VECTORS) 
ROTADD ;UP DATE ROTATING POINTER 
1$ 31S IT ne LAST DEVICE 


: TESTED IN THIS PASS ? 
ROTADD,ACTREG TEST THIS DEVICE FOR ACTIVE STATUS 
RUN T 1s NOT ACTIVE, TRY mths ADDRESS 
PC, REPLAY ALCULATE NeW PARAM 
AReciRT ives tr WAS ACTI ; THIS DEVICE 
#1, BOTADD iF? He “eer VEaleatel 

: polite ER FOR NEXT MULTIPLE Pass 
KEEPIV Bhs base O RESTORE Bree it UPT VECTORS 
PC : ¢ PARAMETERS 
BASEADD,DUBASE ;:SET UP FOR NEW ADDRESSES 


PC :CREATE NEW ADDRESSES 
BRSE IV DURIV :CREATE DURIV 


BASET 
BASEIV.DURIS § ;CREATE DURIS 
#2, BASEIV 
BASEIV,DUTIV _; CREATE DUTIV 
#2, BASEIV 
BASEIV,OUTIS | ;CREATE DUTIS 
DURIV,BASEIV § ;RESTORE 
gee RI ;CHECK FOR ACT-11 OR DOP 
ARESTRT :IF NOT, CONTINUE TESTING 


JSR PC,(R1)-. 


MOV #340,PS ;PREVENT INTERRUPTS (PRIO: 7) 
aCONT. 


SEG 0046 
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001114 
b6iii8 
O0ille 


000001 
171244 
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OOllle .DELAY: ey 


MOV 
POP. SP 
gLR 
UB 
LESS. TIME: 
MORE. TIME: 
OOille 18: 
BNE 
IMP 





a(SP), TEMPS 
te, (SP) 
tg) TEMPY 


Bc )+, TEMP3 
(PC)+, TEMPS 


thier 
aTEMPY 


JO4 


;SET UP COUNT 






os A SMALLER DELAY TIME 


iT THE 40h 
;TIME OUT 


IN HERE TO BE 


ME 
IN HERE TO BE ADDED 
IME. 


1896 
1897 
1898 


1833 BarbeD 


ae 


8 
o 


ASS SERPS ETERS 
Feeges HEROES 


20000000 OOOVO0O0000 


+ 0+ +b +6 +0 +o 0 & < b+ 0 & + + 6 = 8 


1901 007660 
1902 007662 
1903 007664 
1904 907672 
190S 007674 
1906 907700 
1307 007706 
1908 007710 
1909 007714 
1910 007720 
1911 007726 
1316 34 
191 7740 
1914 e 
1915 007744 
1916 

1917 

1918 

1919 

1920 

13el 

1See 

1923 

1924 007746 
1392S 9077Se 
1926 007756 
19e7 007762 
1928 007764 
1929 007766 
1930 007770 
1931 00777e 
193e 007776 
1933 

1 

1 

1 

1 

| 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


RB 
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;SCOPE LOOP AND INTERATION HANDLER 


.SCOPE: CKSWR ;SEE IF tG STRUCK (SOFT SWITCH REGISTER) 
171170 gy #BIT14, aSWR 
TTST:  BEQ 1$ 
BR 3$ 
171156 1S: BIT #S5W11,9SWR 
BNE 2g 
INC LPCNT 
001072 CHP LPCNT, ICOUNT 
2s: CLRB § ERRFLG 
CLR LPCN 
001072 MOV #S0. , ICOUNT 
001064 MOV NEXT. RETURN 
2S: Hoy RETURN, (SP) 
RTI 
BRU: 1407 
BRX: 432 
;END OF PASS 
:TYPE "END OF PASS CSR: XXXXXX" 
‘UPDATE PASS COUNT 
: LINE NUMBER 
!TF IN CYCLE MODE 
:RESTART TEST 
.EOP: CLR LSTERR ;CLEAR LAST ERROR PC 
CLRB = ERRFLG :CLEAR ERROR FLAG 
INC PASCNT ‘UPDATE PASS COUNT 
TYPE 
MEPASS 
CNYRT 
XCSR 
TSTB = SAVSRI 
BMI b4S 
INC XL INEX 
o0i0S2 64$: MOV PASCNT, LIGHTS sDISPLAY PASS COUNT 
TST TAG :DP OR DU 
BNE RESTRT : DP 
IMP DU. UPDATE :DU 
RESTRT: CKSWR 
IMP QCONT. sCONTINUE TO TEST APPRO. DEVICE 
XCSR: 1 
-BYTE 6,2 
DEVICE 
001050 TSTSWR: MOV #DSWR, SWR :MOV HARDWARE SWR TO SWR 
001052 MOV sDLIGHTS, LIGHTS :MOV DISPLAY LIGHTS TO LIGHTS 
MOV 386, -(SP} :SAVE VECTORS 
MOV aed’ -(SP) 
999904 MOV #64$. 084 :SET UP FOR TIMEOUT 
170 C tier !REFERENCE HARDWARE SWITCH REGISTER 


SEG 0050 








OZDFA-B MACY11 27(1006) 22-OCT-76 13:09 PAGE 51 
DZDFAC.P11 20-SEP-76 14:36 ;TEST TO SEE IF USING HARD OR SOFT SWITCH REGISTER 


1952 O10104 O22626 643: CMP (SP)+. (SP)+ sADJUST STACK 
1953 O10106 Ole737 000176 OO10SO &5$: MOV aSwRES, SUR “POINT TO SOFTWARE SWITCH REG 
1354 O10114 012737 000174 9001052 ad HOV aDISPREG LIGHTS ;POINT l° ele DISPLAY REG 
idee Bilge Bisbay BhtbOE + BY CfREd S88 ; 
195? O10i3e oOS737 Oo00042 TST ae4e SUNDER MONITOR 
1958 019136 001005 BNE 67 
1958 010140 022737 000176 001050 CMP aSWREG, SWR IS SWREG USED 
1960 310146 001001 BNE 675 
1961 O101sO 104414 BTSHR 
i366 619152 000207 67$: RETURN 
1363 s TELETYPE OUTPUT ROUTINE 
] 101 1 . TYPE: MOV RO,-(SP) ; SAVE RO 
138 pie tee Bt o00002 MOV (SP), RO : GET ADDRESS OF ASCIZ STRING 
igb8 g10i6e 005737 011504 TST aaRDSH : 7CALLED BY TSHR ROUTINE 
| 1376 018198 Birr? 010000 170652 By #5u12, 05KR : a A ees 
1 1020 1S: VB (RO)+,-(SP) > PU cg 0 BE TYPED ONTO STACK 
1355 BtRsAD Aastte . 0 ©6035 FUEL AT END OF MEcSace 
| 1374 010204 122716 000200 CMPB ss WCF, (SP) ; 18 17 A ngoper <CRLF> 
1976 Bt l S (SP)+ t Bhp re REE ED «CRLF» 
| 1977 Oldel4 104402 012061 TYPE ,CR.LF : AND TYPE THE REAL THING 
1$73 o1oz20 900767 BR 1s ; GET NEXT CHARACTER 
tees ines 105777 170632 es: sta aTPCSR READY TO PRINT 
1ag5 b Geet 1 BPL i fart. 
1984 Ol 11 170626 MOVB  (SP)+,aTPDBR ;: PRINT iT 
1985 910234 000761 BR 18 : GET NEXT CHAR 
| 1386 010236 905726 2S: TST (SP)+ : CLEAN UP STACK 
we 01 012600 4S: MOV (SP)+,RO : PUT RO BACK 
1988 O10242 O&27!1E ooDDD02 ADD #2, (SP) : ADJUST RETURN PC 
| 1389 O10eNe RTI : GO BACK 
133i ERROR HANDLER 
1993 10250 104413 ERROR: CKSWR 
1994 010252 O3e 019000 170570 BIT 8SW12, ISWR 
1995 610260 001406 BEQ 
1996 01 170572 TSTB. — ATPCSR 
| 1997 010266 100003 BPL XBX 
1998 010270 112777 o000207 170564 MOVB #207, JTPDBR 
1999 010276 032777 O20000 170544 xBx: BIT #SW13, aSWR 
2000 910304 001067 BNE HALTS 
| 200i 010306 921637 001104 CMP (SP) .LSTERR 
| e002 010312 001404 BEG 
2003 910314 O11 001104 MOV (SP) ,LSTERR 
2004 010320 105037 OOle46 CLRB  —s ERRFLG 
2005 010324 104403 1S: SAVOS 
2006 010326 011605 MOV (SP) RS 
| 2007 610330 162705 oo000e SUB #2, R5 
| 


| 
} 
| 
! 
| 
| 
‘ 





MO4 
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DZDFAC.P11 ;TEST TO SEE IF USING HARD OR SOFT SWITCH REGISTER 
2008 010334 011504 MOV (RS), R4 
2009 010336 9006304 ASL RY 
2010 O10340 061504 ADD (RS) RY 
2011 O10342 906304 ASL RY 
2012 O10344 042704 177001 BIC #177001,R4 
2013 010350 062704 O14164 ADD #. ERRTAB, RY 
2014 910354 012437 010434 MOV (R4)+, ERRMSG 
2015 O10360 012437 O10446 MOV (R4) +, DATAHD 
2016 010364 011437 010460 MOV (R4) , DATABP 
2017 010370 105737 O01246 TSTB —s ERRFLG 
2018 010374 001403 BEQ YPMS 
2019 010376 005737 010460 TST DATABP 
2020 O10402 O010e2 BNE TYPDAT 
2021 O10404 104402 TYPMSG: TYPE 
2022 O1040s I WHO: .BLKW ol 
2023 010410 104402 TYPE 
2024 O104l2 012043 MERRPC 
202e5 010414 104406 CNVRT 
2026 O10416 Olosse ERTABO 
2027 010420 | YPE 
2028 O10422 012057 MCRLF 
2029 O10424 112737 177777 ocOole46 MOVE = #-1, ERRFLG 
2030 010432 i0440e TYPE 
2031 010434 ERRMSG: 0 
2032 010436 005737 O10446 TST DATAHD 
2033 O10442 o01402 BEQ TYPDAT 
2034 O10444 10440 TYPE 
2025 O10446 DATAHD: O 
2036 010450 005737 0O10460 TYPDAT: TST DATABP 
2037 O10454 001402 | RESREG 
2038 O104Se 10440S ° CONVRT 
2039 O10460 O00000 DATABP: 0 
2040 o10462 104404 RESREG: RESOS 
2041 O10464 0605777 170360 HALTS: TST aswR 
2042 010470 100005 BPL EXITER 
2043 O10472 Ol PUSHRO 
2044 010474 O16600 op0002 MOV 2(SP),RO 
2045 o10s00 900000 HALT 
2046 O10S02 012600 POPRO 

— 2047 010504 104413 EXITER: CKSWR 
2048 010506 005237 001102 INC ERRCNT 

2048 010512 032777 OO0400 170330 BIT #SWO8, ISWR 
2050 010520 001007 BNE 1 
2051 O10S22 032777 oO02000 170320 BIT #SW10, ISWR 
2052 010530 001407 BEQ 
2053 010532 013737 OD1066 001064 MOV NEXT, RETURN 
2054 O10540 012706 o01050 1$: MOV #STACK, SP 
2055 010544 000177 170314 IMP RETURN 
2056 010550 o0000e2 25: RTI 
2057 010552 o00001 ERTABO: 1 
2058 O10554 006 002 .BYTE 6,2 
gee O10556° 001146 SAVPC 
gol ;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
2062 O10S60 104402 .CONVR: TYPE 





a 
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2064 o10s62 
5065 O10564 
Spee Sibese 

10876 
Spee BIDEDE 
St se 
5071 10616 
5072 10622 
ca 
Sose Ot be Se 
5076 Oi0640 
5977 O10644 
ae 01060 
bi peed 
208! C105 
Spea Clpeee 
5084 010864 
5085 10666 
Spee Dibese 
10672 
5088 10676 
5089 010700 
5090 010704 
5091 910706 
5992 g10712 
5093 010719 
5094 010720 
5095 10724 
509% 010726 
5097 910730 
5998 010732 
stag of 
ste Bibeue 
5102 10750 
5103 10752 
3104 10764 
5105 
5106 O10756 
5107 
5108 
5109 
5110 O10760 
Bill 
5112 
5115 
3114 10766 
lis 01077 
116 OL 
511? 011002 
5118 011006 
5119 O1i0le 


20-SEP-76 14 


te 
al 
ss 
S5 

iO 


O0r-O0r--O 
REI 
2e0 

. 


Fans 014310 


177770 
000260 


? 
8 
& 


BFE oxsce 


ThA 010754 
10$737 010755 


000240 
010755 


005337 010752 
013737 OO1112 


010755 

oc0000 

016637 og0004 

010537 o01142 

10437 00114 
10337 001136 

010237 001134 

010137 001132 

010037 001130 
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001112 


014310 


001146 


NO4 


;TEST TO SEE IF USING HARD OR SOFT SWITCH REGISTER 


MCRLF 
.CNVRT: MOV a(SP),R1 
MOV TEMP TEMPS 
ADD #2, (SP) 
MOV (RL) +, WROCNT 
1$: MOV (R1)+; CHRCNT 
MOV (R1)+) SPACNT 
MOV a(R1)+, BINWRD 
2s: MOV BINWRD,R4 
MOVB § CHRCNT_RS 
MOV #TEMP, RO 
3s: MOV R4Y,R3 
BIC #177770,R3 
ADD #260,R3 
MOVB = R3, (RO) + 
RRR 
CLC 
ROR RY 
cL¢ 
ROR RY 
DEC RS 
BNE 
MOV #MDATA, R3 
4S: MOVB -(RO), (R3)+ 
DECB = CHRCNT 
BNE 4§ 
TSTB = SPACNT 
BEQ 
cs: MOVB #240, (R3)+ 
DECB = SPACAT 
BNE 
6S: CLRB = (R33) 
TYPE 
MDATA 
DEC WROCNT 
BNE 
MOV MP3, TEMP 
RTI 
: 0 
0 


CHRCNT: 
SPACNT=CHRCNT+1 
BINWRD: O 
SAVE PC OF TEST THAT FAILED AND RO-RS 
.SAVOS: MOV 4(SP), SAVPC 
;SAVE RO-RS 


sv0S: MOV RS, SAVRS 
MOV R4, SAVRY 
R VR3 


MOV 3,58 
MOV Re, SAVRe 
MOV l 7 SRR 
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i 
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011504 
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een ee 2 ne ew ree er en ne ee + a -_——_ =; 


COS 


DIDFA-B MACY11 2711006) 22-OCT-76 13:09 PAGE S 
ee : oe sbPOSe 14:36 fest 70 SEE IF USING HARD OR SOFT SWITCH REGISTER SEQ OOS 
| giz 011230 O12 011262 MOV DEVADR , R4 
z18 SiiER fi 18: MOV RS, (RYS+ 
2178 O11l236 O6270S o0u002 ADD #2/R5 
cn pee gime Sar ie 
rd 
| At site Bisons PARTI: MOV (SP)+,R4 
2183 OlleS2 O1260s MOV (SP )4'RS 
2184 011254 000002 RTI 
2185 911856 090000 LOLIM: 0 
218 O11 000000 HILIM: QO 
2187 Ollese 900000 DEVADR: 
2188 011264 900000 LOBITS: O 
e189 011265 ADRCNT=LOBITS+1 
| sla sASCII STRING INPUT ROUTINE 
| 8183 011266 010346 -INSTR: MOV R3,-(SP) 
| 2138 p1ig7o S104 MOV 4) -(5P) 
; 195 O11 O01 go00004 911310 MOV a4tSP), MSG 
| £298 011300 062766 000002 000004 ADD 4(SP} 
e137 011308 1 INSTA: TYPE 
siz Be tgie 1 o14414 MOV sINBUF ,R4 
2200 011316 012703 000007 MOV #7,R3 
| 2201 Oll32e2 105777 167526 1$: TSTB aTKCSR 
2202 011326 100375 BPL 1$ 
2203 011330 117714 167522 MOVE  a@TKDSR, (RY) 
, 220% 611334 142714 000209 BICB 8200, (R4) 
| p20S O11340 1214287 900025 CMPB Os«( RY) , #eS -IS IT <t@> 
«206 «011344 001003 BNE 200$ 
| 2207 O11346 104402 012057 TYPE, MCRLF 
2208 O113S2 900755 ze -INST1 
| p20S9 011354 1220427 oooo1s 2008: CMPB (R4)+,815 
| B210 011360 O01423 BEG INS 
| 211 O11362 117777 167470 167472 MOVB § aTKDBR, aTPOGR 
2ei2 011370 105777 167464 2$: TSTB aTPCSR 
| 2213 011374 190375 BPL 
| B235 011376 DEC 3 
_ pelS O11490 001350 BNE 
| 2216 O11402 o00402 ee NSTG 
| B21? O11404 O10346 .INSTE: MOV R3,-(SP) 
| 2218 O11406 010446 MOV RY! -(SP) 
| 2219 O11410 104402 .INSTG: TYPE 
| 2220 Oll4le O126is MQM 
| 9821 911414 005737 o11504 TST aeROSW 
| 2222 011420 001402 BEO 400$ 
| 223 Oll422 104402 o12057 TYPE, MCRLF 
| 2224 O11426 go97 400$: BR INST 
| e225 011430 eh INSTR2: MOV (SP)+,R4 
«eee «011432 012602 MOV (5P)+'R3 
gee? 0114324 ood002 f 
22 :COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
5557 ‘BUFFER TO THE CHARACTERS "N” AND "“Y™ 


2221 ‘IF THE CHARACTER IS "N” CLEAR THE FLAG 








a 


DDE R-5 MACY11 27(1008) 22-0CT-76 13:09 PAGE Sé 
CIDFAC.P11 20-SEP-76 14:36 -TEST TO SEE IF USING HARD OR SOFT SWITCH REGISTER 
223 :IF THE CHARACTER IS “Y" SET THE FLAG 
2224 O11436 017605 900000 .SETFLG: MOV a(SP),RS 
e235 Oise 737 OOOl1E CL4414 CMPB sag#''N, INSUF sIS IT “N™ ? 
ex O11 I SNE 1$ 
2237 011452 105015 CLRB 3s (RS) 000 
2238 O11454 900406 Se 2$ 
2239 O11456 122737 000131 O14414 1S: C 8°, INBUF -IS IT “Y" ? 
2240 911464 O01005 BNE 33 
2241 OL1466 112715 177777 MOVE = #1, (RS) :377 
2242 O11472 O62716 000002 2s: ADD #2, (SP) 
2243 011476 dd0002 RTI 
2244 O11500 104412 38: INSTER RETRY 
| ees 011502 oo07s5 BR .SETFLG 
| ee? CHECK SMITCH REGISTER ROUTINE. CHECKS FOR tG TO ALLOW CHANGING 
2288 “LOCATIONS USED: 
2250 011504 oD0000 ROSW: .WORD O 
552 
| S523 pt tees oer aae aecaibe reat BRE Sut 
i 
| 2255 011514 022737 000176 001050 CMP SSWREG, SWR ; SOF THERE SUITCH REGISTER PRESENT 
 «- BRSE «011522 OOlo3¢ BNE OUT 
| p257 811524 106777 167324 TSTB  aTKCSR yes Gert FOR 
2258 911530 100033 BPL QUT READY, GET getPRACTER 
2253 011532 017737 167320 011310 MOV JTKDBR, .MSG 5 AND Ste ip 
| pe60 O1184O 042737 177600 9011310 BIC #177600, . Saroace 
| 2261 O1L1I5M6 122737 000007 011310 CMPBOttédk?”, MSG ts IT A <t@> 
 «pebe O115S4 601021 BNE 0 
«PRBS «OOLISSE «6104402 011634 TYPE, SCNTG 
| pee4 011562 005137 011504 .GTSWR: COM 
 «2RES OL156— 104402 O11640 TYPE 
| 2PEE O11572 104406 011626 CNVRT, SWREGC 
| pee? O11576 104407 011647 TR; 
| pp6B O11602 104410 
| 2269 O11604 
| 2270 O11606 177777 177777 
| 2271 011610 000176 6 
| pe72e Oligie 000 001 BYTE 0.1 
| 9273 O11614 104402 012057 TYPE, MCRLF 
| 2274 O11620 005037 O11504 OUT: CLR DaRDSW 
2275 O11624 000002 RTI 
_ 2276 O11626 00000! SWREGC: 1 
| 2277 O11630 006 oo2 “BYTE 6,2 
| 2278 O11632 o00176 G 
| 2279 Olle34 057377 000107 SCNTG: .ASCIZ <377>/tG/ 
| 2280 O11E40 051777 051127 o20075 SMSWR: .ASCIZ <377>/SWR= / 
« BEBL «OLIEME 000 
2282 011647 040 O47040 OS3S0S SMNEW: .ASCIZ / NEW= / 
2283 O116S4 oe0075 900 
2284 011660 EVEN 
2285 : TRAP DISPATCH SERVICE 


ect :ARGUMENT OF TRAP IS EXTRACTED 
;AND USED AS OFFSET TO OBTAIN POINTER 





——- mT I 
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| DZDFAC.P1i 20-SEP-76 14:36 ;ROUTINES TO CHECK FOR tG AND TO GET “NEW’ VALUES SEG 00S7 


e298 :TO SELECTED SUBROUTINE 

2290 ittes O1 146 .TRPSR: MOV ( P) 5 (SP) ise : oF RETURN 

5842 Bit bscie BB88R5 MOV (SP) (SP) 

2293 O11&72 OO06316 TREOK: ASL (SP) ba TIPLY TRAP ARG BY 2 

2294 O11674 O42718 177001 BIC #177001 (SP) :CLEAR UNWANTED BITS 

zis g1179¢ De27i6 go127 ROD 8. “RP TAB, (SP) SOINTER | TO SUBROUTINE ADDRESS 
7 ) 

esi aiistd BACEE tae |B BB}S fae qUBROUTINE 

229g 

2298 

2300 
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13:09 PAGE SE 
*ROUTINES TO CHECK FOR tG AND TO GET ‘NEW’ VALUES 
5 RERERESEASEREREES 
; TTY MESSAGES 
5 FRRRAKRAALSRELSRAE 
027461 EDP11: .ASCIZ <CRLF>?DPLI/DFC11-A TEST ? 
D2e7461 EDULI: .ASCIZ <CRLE> 20U1 1/DFCI1-A TEST ? 
043040 MPOWER: .ASCIZ <CRLF>/PWR FAILED / 
o47 108 NEPASS: .ASCI CP) <2) CREE END pass CSR: / 
le3 MTSTN: .ASCI by a Test NO. 
020072 MLINE: .ASCIZ /LINE: 
O47S22 MERRPC: .ASCI (ERLE /ERROR PC: / 
MCRLF: .ASCIZ <CRLF> 
CR.LF: .ASCIZ <15><12 
O44S26 DUTITLE: 2BS I CRLF < 48> DEVICE | UNDER TEST-DUL1 BDFCLIA /<CRLF> 
026461 .ASCI2 /MD-11 
ose DPTITLE: .ASCII <CRLF> <1) “DEVICE UNDER TEST-DP11 S8DFCLIA /<CRLF> 
Peete mvecto: “REELS CORLEL VECTOR AOORESS~/ 
G28 NRE GAD: -ASCIZ CCRLFD “1ST DEVICE: RECEIVER CONTROL REGISTER R aQDRESS-/ 
pedi S8 MLASTB: Batts (RACED LG T sbevites RECEIVER CON CONT OL U REGISTER ADDRESS-/ 
027056 MCOW: -ASC1Z <CRLF>/ ...SELECT SOMETHING TO RUN QACTREG / 
be0ics MANGE : -RSCIZ < <CRLF? /OUT OF BENGE. RETYPE LAST DEVICE RXCSR ADDRESS-/ 
MR: .ASCIZ CORLFO/R / 
o200s6 EMI: -ASCIZ (CRLF>/REG. ADDRESS / 
OSiSig EMe: "ASCIZ <CRLFD/T SHITTER / 
042503 EM3: “ASCIZ <CRLF> /RECEIVER 
0s4105 EMM: “ASCIZ <CRLF> /UNEXPECTED “INTERRUPT / 
052103 : -ASC1E /EXPEC RECEIVED / 
042105 OHI: -ASCIZ 7 T 
O51105 De: “ASCIZ ZI 
050101 DH3: -ASCIZ < 






SEG 0058 
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;ROUTINES TO CHECK FOR tG AND TO GET "NEW VALUES 


hg a bi HAS_NO CLOCK!!/ 
UP aNot 14 FOR ee 3 a : 


LES? 
FS 68. You YOU a LIN Isnt TO 6 BUNS SAUD TEST. USING. sc 
ven IS NO DEVICE PRESENT AT THE ADDRESS YOU sLecteD---PLEASE R 


N) 
TOOK TO SCOPE OR DFC FAILED TEST. 
<CRLF>/D0 YOU WANT 15 RUN BAUD RATE TEST? (Y OR N) --- / 
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14e16 
2323 014220 
2324 
2325 014222 
014 
23e9 014230 
014232 
2331 014234 
esse 


4306 

2257 014310 

2353 014352 
360 
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RGR OBES 
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ode 


.ERRTAB: 


OTO: 
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“EpRO) S50 ROUTINES TO CHECK FOR 1G AND TO GET *NEW’ VALUES 





SES 0060 


DZDFA-B MACY11 27(1006) 22-OCT-76 13:09 PAGE 61 
DZOFAC.F11 20-SEP-76 14:36 ;ROUTINES TO CHECK FOR tG AND TO GET *NEW’ VALUES SEG 0061 


2361 014414 000000 INBUF: 0 
232 O144S6 =. 
2383 000001 END 


ee 
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DZDFAC.P11 20-SEP-75 
SRA Oo20b2 
mecit> Gllees 
SReStR 
STR ? 
BACK 001210 
BASCSR 001354 
Sase pp leet 
BASEIV O01264 
BASVEC hited 
pores. 
002210 
001224 
BOTAG 004710 
gor TF O01 es 
GIN 
001540 
BINWRD 010756 
BITW = 002000 
Biro = 000001 
Bitio = posdon 
BIT11 = 004000 
BITle = 010000 
BIT13 = Ge0000 
BIT14 = 040000 
BIT1IS = 100000 
BITe = OCO004 
BIT3 = Q00010 
BIT4 = 000020 
BITE = potas 
BI s poo tee 
| BITS = 000400 
! BITS = 001000 
BPC 001156 
| BREAK = O00001 
aw 007742 
BRX 
KRenET 1164 
= 010000 
cce 007542 
CHONT  O01226 
| CHLEN 01172 
| CHRCNT 010754 
| CKSWR = 10441 
CLK s 
| CLKSET 001229 
| CLKSTA O01234 
re o0s500 
Ba Be 
CNYRT = 1 
| CONT.  OOle12 
CONVRT= 104405 


22-0CT-76 
14:36 


877 
5 


7 


NO.wOw 
+ > pb 
oun 
st oe ot 


- 


fur 
“Ne 


6398 


gese 
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930% 


935 
18SS% 


1563 


$57 
isss 


937% 


941% 
1860 


1564 


958 


1031 


1084 


1732 


1880 


JQ5 


1834 1837 
943%  1841# 
1861* 1862 
1730 1792 
1SS6 1576 
1422 1431 
1509 1513 
1938 1993 
L414# 
1SS3* 1554s 
19393 


SEG 0062 


1847 


18S4# 858 


1 
1863% 1864 1865* 1866 1867% 


1802 


1900 


1435 1448 1457 1461 1470 


1589% 


1444 


2047 


Se 





a 


KOS 
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D2DFAC.P11 20-SEP-76 14:36 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0063 
CON.RX 003022 1052 10788 
CPSFLG 001220 6298 1970 1071 # #®©«&31377 1378 
ou = 000200 ia i. 2305 
¢ 
se - BAERS: sibs es 1147 
DATABP O10460 16* 2019 2036 2039 
DATAHD O10446 2013+ 2032 20358 
DDD 350 1 938 
DD.A 01236 cS7s 6408 g64* 1569 #1579 
DELAY = 1440 685s 1026 1032 
DE VAD O11 2135 21 21878 
VICE 001214 6278 858% 671% 1817% 1942 
DHO 012730 230S* 2310 2314 
DH1 g1e754 e2058 2318 e302 
SOT Sie, S358 
DISPRE 000174 cSie 1954 
DLIGHT= 177570 SO2e 1945 
DNA = 100000 7498 
DNAINT= OO0040 7568 
DPRB 071330 7708 1079 #411788 #«&3&351789 1791 
a ve ime 
DPRS 001326 zeae ee 1057 1631 1671 172% #47308 #473S5* %l746* #41784 #+«+#$;+‘(1793® 1802*  ig0as 
é & 
DPSETU 002670 10528 
TS 001336 773% 1000% 1059 1759 1775% 
DPTITL 012146 823 23058 
DeTiy 901346 7808 1054s 1741% 1763%  1800% 
DPTS 001334 772g 420 98]e 1001 1013 1024* 1026 #10318 1033 1097% 1401% 1573% 1729% 747% 
1769 17e 1779 1804* 1810% 
DP. UPD oo 1gHe 834 * 993 
DPii ©0014 c61 8048 e808 
DP11.A O02404 557 809 810 cats 9838 994 
psc _= 190000 7138 
DSINTE= OO0040 7238 
DSR = 001000 7198 1135 1136 1147 
DSWR = 177570 SOle 1944 
OTR = 000002 7278 «611360 0«=6s 1140—Ss«aLLN?—S—sé«<2L‘B!DD 
870 014252 2311 2340 
oT] 014264 2315 23468 
BuRODR pores “eee gies 1689 
DUBASE 007312 891 895 1695 1816 1818* 1819 1820 182l* 1822 1823 1824 18268 1959s 
DURIS 001372 eat 11538 11756 s«1176* )3=«s 11 1184* 24S* 1268 269% 1284  1285* 1313 1314s 
* $ 
DURIY 001370 ee 303 906 907 1152 41175* 1183 l244* 1268% 1284* 1313% 1364* 1860s 
DUSETU O04412 13648 
fh 90 376 801s leu? 1270 271% 41286 1287" 1315 1316# 1367%  1866% 
: 
Vv I # [246 12708 286% 1315* 1366* 1664 


-_ 
ws 
= 
aw 
a8 


1937 
esse 863 1840 
856 8S7 B64 883 961 11158 


Eeeece 


=, 
8 

Be 

eoRes 





o——_ A 


OZDFA-B MACY11 27(1006) 
20-SEP-76 14:36 


DZDOFAC.P11 
punt 8 003$32 
ll = Qli?le 
EDULL 011736 
EEE 00442 
EIGHT = 006000 
EM Olebeb 
ENS Riser 
12665 
EN4 012701 
ERRCNT 001102 
RRFLG thas 
TABO ibees 
001400 


Bela 


PEHES 
aca 
tom 
£ 


aa 
+ 
tf 


QD 
aaeRe 
i 


~ 
= 
ms 


INTCNT 


8 
2B 


; 


oe 
ae 


inp 

W400 
i 
£ 


ae 

a 

= 
See 


Pais 
3 


ccoeoceceecee 
2 
= 4 
B Gxz 
= 


in 
sa 
Pe 
RE a 
yaa 


$ 
B 


+b-e +0 


Fa 





22-OCT-76 
1117 leles 
Bli 23058 
871 23058 
1398 14068 
7448 = 8=©61132 
2305@ 2313 
23058 2317 
e30S% 2321 
23058 2337 
S878 817% 
ofits 1908# 
14# 20318 

2026 20578 
7478 

7368 

2042 20478 
7418 

S F 

ses 

7078 i361 
2000 20418 
21368 = 
i38% ioe. 
2144 2199 
b4é8 816s 
oice ons. 
cere “a8 
2210 22eSe 
6288 1056# 
1384 13968 
14 14038 
14 14048 
7408 1129 
¢Ste 

6618 ggs# 
bb48 906+# 
1048 1074 
1382 13848 
1383 15508 
b6e8 924 
1888s 

S7e8 1934# 
61S5e 1734# 
2154 2168s 
823 16038 
832 16168 
2140# 2172 
Sees 

18758 

6498 
2137# 2170 
Ses 14s 
Sees 1S# 
1039 1428 


13:09 


1226 


23eS 
23e9 


86* 
192S% 


PAGE 65 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1603# 
2004# 


1415 


2048% 
2017 


943 


1795 


2d0t 


1467 


LOS 


2029 


919 S44 954 1067 


18S4 


1799# 


909# 


003% 
1480 1493 1506 i519 


1088 


1565 


1374 


15698 


1560 


SEQ 0064 


MOS 
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DZDFAC.P11 SEP-76 1 CROSS REFERENCE TABLE -- USER SYMBOLS SEG O0&S 
013643 1424 1437 1450 1463 1476 1489 1502 1515 23058 
MBORT 013736 22058 
MBOTES 61410) 839 955 23058 
MCOW 8 6©6Qle46 1836 23058 
MCPS 013142 1068 13 23058 
MCRLF 1205S? 2028 2064 e207 2223 2273 23058 2309 2333 
MDATA Bt 7 20 23598 
ME 11 1328 2305s 
MERRPC 012043 20e4 2305 
XT = 010000 7638 
MINT = 004000 & 
012407 23058 
MLINE Q12034 23058 
012331 2 
MNOCLO 013052 1845 23058 
013333 1698 
MORE.T 007632 18918 
MPOWER 011762 17139 = 23058 
MOM 012615 2220 86 23058 
MR Olebee 882 23058 
MRANGE 012535 945 «623058 
MRBAUD 013224 1089 156 23058 
reo seeah 887 (se 3058 
MRESET= 7538 = =1l 1131 l22e 1224 1357 
nat 612678 1427 1440 13 1466 1479 1492 iS0S 1518 23058 
MSC 131 10 1566 B 
MTDATA= 7508 
MTSTM 014020 2305 2334 
MTSTN Oi2e0el 23058 
a an a a 
MONG bi Seu4 1420 1433 L446 1459 1472 1485 1498 1511 1521 2305% 
M1200 013506 1469 1584 23058 
M150 —-s«o69.135.31 1508 1587 23058 
M19200 013451 1417 1580 8623058 
MeYOO 013477 1456 1583 23058 
M300 486©013S23 1495 1586 23058 
m4Y¥B00 013470 1443 1582 23058 
ME00 8=—: 13515 1482 issS = 23058 
an an ne 
NEXT 001066 5818 810% 857% 992 99s*# 1le7# l221# 1911 2053 
NOPAR = 000000 745 1132 1226 
NOTEO  OOe64e 10478 1072 
NO.CLO OO0le16 6288 1063 1370 1381 1S34# 1537#  1543% 
NO.TRA O06024 1366 15928 
Wee eee ila 
ODDPAR= 001000 7468 
OKAOR O06256 834 16918 1850 
ONCE 002014 8768 
OPTCLR 001253 6S4s8 
OUT 011620 eecS4 2256 2258 e262 22748 
OUTMUL 00237e S4e 989 3618 
OUTPUT 005726 1S58 15718 
OUT.PT 003110 1086 10978 





















 geeees ‘BEzenan 


ING 

RINTEN= 100 
2TADD piste 
0004 
RXCSR OO0135E 
001360 
RXDONE= 000200 
= 100000 
RXSETU OO4404 
VPC OO1146 
Be Bus 
SAVRe 001134 
SAVP3 001136 
SAVRY 001140 
SAVRS 001142 
SAVSP 001144 
SAVSR1 001150 

SAVSRe 001 

= 1044 

NT 001176 
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888 
2164 


1129% 


NOS 





67 


900 921 S46 2268 
1132 1223% 1226% 1358%  1820% 


2150 2159# 2169 2171 2173 


S868 1926 1934 


861% 1049% 1154 11728 1182% 1248% 1265% 1311% 1329% 1252#  1388% 


B4S* 848% 849 856% 880% 883% 884 361% 362 994 1911# 


* 1847 1852 





1135 1137 1140% 1146 1158 1173 ' 1178% 1181 1195 1229% l2eS3% 
1epde  i3iee isee 13638 16len 16178" cs 
1174 1243 1283 1590 1819 ae a OR , ‘ Soe 
1198 1323 1325S pete 
2110% s 
2124 2342 2350 
2125 2344 2352 
2leb 
2ele7 
ele ; 
160% vx 26 =O Y64 1732 1931. 
1613 1653 f re ap 

haat — 

Sh “Eee 
- a a F “8 a 
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SCOPE = 104400 6838 1044 1203 1330 

SEND = 000020 7s7e@) = 1457 lees 

SEQ.DA OO&472 1043 ©1723 

SEREC 01252 S38 

SETFLG= 104411 Ole 840 310 956 1069 1090 1376 
SEVEN = 004000 7438 

SEXMIT 0188 6528 

SEXT 01 774— 40««172S*® = «1 737% = 1 760s 

SIx = 002000 P7428 

SLIM = OCLISS b118 

SPACNT= 010755 2070 209: 2094* 2105s 

SRD. = 002000 7188 i135 1136 114? 

STack = 001050 So4s 806 Se 1050 i353 #1716 2054 
START  OO43IE 880 %O 8613528 

STD = 000010 7eS@ 1135 1136 2140 1147 ~§8 1229 

eTpe N= Done S258 (128 

so! t 
| Sv0S 019768 21148 

SuMP 20s 22 093 2—«s«109Ss 

ris, semen: 180p, 1802 seade 1848 desde iaes | 1978 
| SHES 000176 oSes es 1989 2esS Ss 22271 2278 
| SWREGC 01162 2266 432s 7a 
| SWOO = 00000] 49Se 
| = 900002 uate fae 978 

= 

| Bae = peas ep 

SWwOY = 900020 4818 
| SWOS = OO00040 4808 
| $W06 = 000100 4798 

SwO7 «= 000200 4788 

SwOs == D00400 4778 2049 

SwOS = 001000 4768 
| Swid = 002000 475s 62051 
| Bus = Btooes dose ava «1984 
= r 
ws = 920000 4728 «1 
| Bia, ° foo we 1421 14934 361447) ss 146O0)—saLH73—s«d1L 48 
ait’. Bpsnas 10848 109 [098 
| Suis” = 100000 4708 

SYNC ©: 001332 7718 10S6# 1745s 
| SYNcNO 001250 A303 

SYNEXT= 020000 7398 
| SYNINT= 030000 7388 1223 
| SYNSCH= 000020 7e48 81158 1229 

sySTST= 014000 7648 

AG 001240 Sh0# 46s G41@0=—ss«aB13* =0s«aS9*® «=s1399—Sts«*d S71 1935 
TDOATA 901166 6i6e 17278 1775 1776 1777 8 1798% 
TEMP = 014310 2066 54 2101# 23578 

TEMP1  O01106 SSe# =«61041* 1750+ 

TEMP1O 0601120 5978 

TEMP1i OOllee 598 

2 001124 59S" 1009* 1015+ 
TEMP13 O0ll2e £008 
TEMPe 001110 S38 1042 17524 


| 
| Tle -- 0 +0 +0 +0 + 


1St2 


1SSE 1576 1604 
1994 1999 2041 


1499 1Sle 1S23 


1605 
2049 


1SS&s 


1609 
2051 


1568 


SES 0067 


1610 
e2ss 








Tees 


2 
oe 
wo 


4 


—— 


RAP AGHE 
ae : 


Rr 
28% 


oagn 


we 
~< 
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20-SEP-7& 14:36 
lille 348 
1114 2223 
i st 
1$5; 
00120e bees 
001054 S738 
0010S S748 
fn be pipe 
51560 eset 
001062 S768 
011672 22938 
O0&034 1081s 
001076 cece 
010040 8iS# 
003060 1065 
002404 $908 
003142 992 
SRSSS% 11g’ 
U 

001160 6138 
007660 19018 
008706 1741 
006740 1783 
002734 10S8s 
001364 738 
1361# 
001366 7368 
0oc200 7S48 
000100 7558 
004330 13548 
010450 2020 
104402 6878 
1446 

1489 

ie 

pad 2018 
7618 
000001 7288 
010406 Bills 
010752 20684 
010276 1995 
010032 1930 
001162 ccoe# 
saa e600 
001526 Bets 
tne) 
000005 ls 
ee 
000003 ls 
000015 £ 


CROSS 


1141* 
1155# 
11652 


2257 
eeil 


ifs 


1166 
2259 


2212 
eell# 


2356 
1219# 


1745 


1620 


1127 


1119 
bess 


1294+ 
1249 
le37# 


1759 


1657# 


11288 


1128s 
6878 


188e# 
l32e# 
1e41# 


1760 


l224# 
1824s 


1933# 





CO6 
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1887# 
1884s 
le4e 


l22Ss 


l22e8 


l22es 
6918 





1890+ 


189 
1258+ 


less 


19178 
6938 


1a" e0b6# 2101 
e348 


leb2# 


l266# 


695s 


1263 


1290# 


6978 


1304# 


1303# 


6998 


1308# 


1357# 


1438 
1475 
1521 


7018 






1360# 


7038 





ir mm 


DO6 
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| D2DFAC.P11 20-SEP-76 14:36 GROSS REFERENCE TABLE -- USER SYMBOLS SEG 0069 
= O144Sé 408 54) S428 S508 SSés 5638 Sets 7698 7708 7718 7728 7738 7748 
- = 78a 7798 Fe0s «= FBle «18888 «1701 «= adees «2284s 2305s «2358s 25608 | 23628 
| .oKSWR 011508 706 «aeS3e 
| “SORT DDE 63 © B0bS8 
"EONVR O10560 eoy = 0e38 
| [BELAY 007874 ees = 18828 
"EOP. 07746 995 1221 «1924s 
TERRTA O14164 2013 «2305s 
TERROR 010850 cus 19938 
"GTSWR O115B2 708 «Beets 
TINSTE O11405 704 «Bei78 
TINSTG 011410 2216 © Be198 
TINSTR 011266 698 51938 
“INST 011308 21978 2224 
"MSG 011310 5165s 31982 5569s 2260 2261 
"Param 011052 70081348 
"PERIL O0643E g43 71381717 
"RESOS 011020 eg B48 
"SavOs 010760 680 81108 
"SCOPE 007650 gey = 18998 
"SETFL 011936 702 baade «©2245 
"TRESR O11660 cy? B58 
"TRPTA 001275 B28 2595 
| [TYPE 010154 ees 4615668 
} 
' 


i] 
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1007 0 iy 1035 1082 1143 1168 1189 1201 1272 1317 i321 1328 1395 









SEQ 0070 
we oH 6 CU yO? 173 
ra f ‘ é 
SBALD 7, fF RSA GS SEGRE 4GGS = meas ayes i008 
SCATCH ie 536 
SCONVR le 2080 
SDELAY le 982 
fe, ot ie 
SF is 541066 ~=—:1087 
ee eee 
SHEADE 1s eae 
SHELPE ls 
SINSTR le 2190 
SP aRAM le 313! 
5 le 3107 
SSCOPE le 18% 
SSETFL le 2228 
SSuITe le “367 
le Bag 
YMBO is “de 
ie 674 
STRODE ls 683 685 687 689° #691 
he is “See 1nd s(1213 
OO at 
TYPE le 1963 
SVARIA is 


- ABS. O14456 000 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


DZDFAC, DZDFAC/SOL/CRF/CPU: 20eDZDFAC.MAC, DZDFAC.P11 
RUN-TIME: 13 22 2 SECONDS 

UN-TIME RATIO: §3739=1.3 

CORE USED: 14K (2B PAGES) 





FO6 
i bois Gi-ter-rb Hier7.90 toaster Be-0 60 team), seme 

















eseeeenevseees) ielslatsle DODO! fatatelele' ROODOOUUC fale) sleate 





DO000 21222122221212121111111110 
OOOOOOOO LILI Lleeeececeeees3333SS3SS4444444444SSS555555566666666667777777777888888888E999999999900000000001 111111 iit 3238235835533 le 


